Sub test()
Dim ws As Object
Application.DisplayAlerts = False
For Each ws In Sheets
If TypeName(ws) = "Chart" And ws.Name Like "Graph*" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub
viens d'ouvrir ton fichier, ce ne sont pas des objets graphiques mais des feuilles de calculs, ceci devrait mieux convenir....
Code:
Sub test()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name Like "Graph*" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub