Suppression graphique

Bonjour à tous,

Je suis en train d'écrire une boucle qui me permettrai de supprimer tous les graphiques présents sur ma feuille excel:

Dim Chrt As ChartObjects

   For Each Chrt In ActiveSheet("Feuil1")
       Chrt.Delete
   Next

Le problème c'est que VBA me dis que l'indice n'appartient pas à la selection

Quelqu'un aurait-il la solution

Merci,

Cdlt,

Bonjour,

essaye peut être ceci :

Option Explicit
Sub test()
With Feuil1.ChartObjects
    If .Count > 0 Then .Delete
End With
End Sub

Merci Pierrot93, ça marche parfaitement

Je me rend compte que dans ma procèdure précèdente, j'avais tous bêtement oublier ChartObjects

For Each Chrt In ]ActiveSheet.ChartObjects
        Chrt.Delete
 Next