Problème effacement image macro

Bonjour à tous!!

Voila j'ai un code qui me permet d'effacer les images de feuille!!

Dim img As Object
For Each img In Sheets("SELECTION").Shapes
img.DELETE
Next

Cependant, ça efface même le bouton qui lance la macro.

Comment remédier à ce problème??

MERCI DE VOTRE AIDE

Bonjour

Dans l'exemple joint, le Bouton 5 est transformé par Excel en Button 5

En cas de doute, l'enregistreur de Macro te donneras le nom du bouton en le sélectionnant

...
Dim img As Object
For Each img In Sheets("SELECTION").Shapes
If img.Name<> "Button 5" Then img.DELETE
Next
...

Cordialement

Merci Amadéus pour cette réponse!!!

une petite question supplémentaire: peut-on sélectionner plusieurs images à ne pas effacer? si oui comment?

Merci d'avance!

Après quelques recherches plus en profondeur, j'ai trouvé un code qui permet d'effacer uniquement les shapes d'un champ, exactement ce que je recherchais^^

Je mets le bout de code si il peut servir à quelqu'un?!?!?

Sub EffaceMentShapeChamp()
  For Each s In ActiveSheet.Shapes
    If Not Intersect(s.TopLeftCell, Range("$A$1:$D$20")) Is Nothing Then
       s.Delete
    End If
  Next s
End Sub

Cette macro efface les images comprises dans la zone (A1;D20) sans effacer les images en dehors...

Merci pour votre aide!