Sub Test()
Dim Fe_1 As Integer
Dim Fe_2 As Integer
Fe_1 = ThisWorkbook.Worksheets.Count
Fe_2 = ThisWorkbook.Sheets.Count - Fe_1
MsgBox "Nombre de feuilles de calcul : " & Fe_1 & _
vbCrLf & _
"Nombre de feuilles qui ne sont pas des feuilles de calcul (graphique, etc...) : " & Fe_2
End Sub