Bonjour tout le monde :0)

Je voudrais supprimer par macro toutes les images importées dans une feuille
pour une image, l'instruction fonctionne
ActiveSheet.Shapes("Picture 37").Select
Selection.Delete

Mais je ne connais pas les noms des shapes (à chaque que j'importe une image, Excel incrémente le no dePicture)

je voudrais un truc du genre mais mon code ne fonctionne pas
For Each Shapes In Sheets
Selection.Delete
Next

Merci d'avance pour vos suggestions :0)

Mimi