Comment afficher le nombre de pages à imprimer dans la barre d'état (comme on le voit dans l'aperçu avant impression...) ?

sub testImp()
 Application.StatusBar = _
 "Votre édition comportera : " _
 & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") _
 & " feuille(s)"
 end sub

Pour restaurer l'état "normal" de la barre d'état: Application.StatusBar = False
Cette peut également être mise dans quelques évènements de feuille qui pourrait modifier ce nb de pages à imprimer genre :

Private sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 testImp
 end sub