Sub Graph_test()
'Comptage du nombre de feuilles du classeur
w = ActiveWorkbook.Sheets.Count
For j = 1 To w
ActiveWorkbook.Sheets(j).Select
'Comptage du nombre de graphiques de la feuille
z = ActiveSheet.ChartObjects.Count
If ActiveSheet.Type = 4 Then z = 1
MsgBox ("feuille : " & j & " Nombre de graph :" & z)
Next j
End Sub