Supprimer une image avant copie

bonsoir

j'utilise l'instruction suivante pour effacer des boutons qui se trouvent sur ma feuille de calcul apres copie de celle ci dans un autre

classeur

Application.CutCopyMode = False
For Each obj In ActiveSheet.Shapes
If obj.Type = msoFormControl And obj.Name <> "Button 13" Then obj.Delete
Next obj
Application.CutCopyMode = False

quelle instruction doit ajouter à mon code pour retirer des images importées et placées sur ma feuille de calcul ?

Merci pour vos réponses

Bonsoir,

tu peux essayer ceci:

Dim Sh As Shape

For Each Sh In Worksheets("ta feuille").Shapes

If Sh.Type = msoPicture Then Sh.Delete

Next

cordialement

Merci Patrick 33 pour cette réponse , j'ai essayé ta proposition et ca marche !