sousou

Bonjour.

Dans la feuille en question tu trouveras une collection d'objet shapes

Une boucle traitant l'ensemble de cette collection devrait de satisfaire.
Les objets sont adressable soit par leur numéro d'index vor exemple soit par leur nom comme tous les objets d'une collection

exemple:

Sub tes()
For i = 1 To ActiveSheet.Shapes.Count
MsgBox ActiveSheet.Shapes(i).Name
if i<>1 then activesheet.shapes(i).delete
Next
End Sub

bon courage