Nombre de feuilles

Je me demande si ce que tu cherches ne correspond pas un peu à ça :


Option Explicit
Option Base 1
Dim NombreDeFeuilles As Integer

Sub ()

NombreDeFeuilles = Application.Worksheets.Count
For Comptage = 1 To NombreDeFeuilles
Worksheets(Comptage).Activate
With ....................................
........................
End With

Cette petite procédure fait ça

Sub NombreDeFeuilles()
MsgBox "Ce classeur contient: " & ActiveWorkbook.Worksheets.Count + ActiveWorkbook.Charts.Count + ActiveWorkbook.DialogSheets.Count & " Feuilles.", vbInformation
End Sub

a+Gérard