Modifier la selection sur une boucle de suppression d images

Bonjour à tous,

j'ai une boucle qui me permet de supprimer toutes les images d'une feuille :

Code:

---

1 2 3 4

For Each img In ActiveSheet.Shapes img.Delete Next

---

Je souhaite supprimer seulement la ou les images présentes dans une plage de cellule, j'ai imaginé un truc du genre :

Code:

---

1 2 3 4

range(maplage).select For Each img In Selection.Shapes 'ou Selection img.Delete Next

---

Evidemment cela ne fonction pas, pas si simple !

Je vous remercie par avance de votre aide précieuse.
Bonne journée.

Salut xbb12 et le forum

Code:

---

1 2 3 4 5 6

Sub test() Dim Img As Shape For Each Img In ActiveSheet.Shapes If Not (Intersect(Img.TopLeftCell, Range("H3:K25")) Is Nothing) Then Img.Delete Next End Sub

---

Supprime les images dont le coin haut/gauche se trouve dans la zone H3:K25.
Avec Excel il faut toujours regarder un problème de plusieurs côtés
A+

Bon sang mais c est bien sûr !

Un grand MERCI Gorfael !
Bonne journée.