Sub TestNBPages()
MsgBox ActiveSheet.PageSetup.Pages.Count, vbInformation, "Nombre page(s) de la feuille active"
End Sub
Sub TestNBP_Classeur()
Dim i&, p&, pp&
p = 0: pp = 0
For i = 1 To Worksheets.Count
With Worksheets(i)
p = .PageSetup.Pages.Count: pp = pp + p
End With
Next i
MsgBox pp, vbInformation, "Nombre de page(s) du classeur"
End Sub