Bonjour Homonyme.
Pour compter le nombre de pages, il suffit d'utiliser la propriété HpageBreaks. (on compte + 1, pour comptablilser la première page)
Sub CompteNombrePages ()
MsgBox ActiveSheet.HPageBreaks.Count + 1
End Sub
J'ai regardé aussi cet exemple dans l'aide qui peut-être interressant
Sub Test()
For Each pb In Worksheets(1).HPageBreaks
If pb.Extent = xlPageBreakFull Then
cFull = cFull + 1
Else
cPartial = cPartial + 1
End If
Next
MsgBox cFull & " full-screen page breaks, " & cPartial & _
" print-area page breaks"
End Sub
Bon Après Midi
@+Thierry