mso type d'une image

Bonjour

J'ai un soucis avec la suppression d'une image sur une cellule

en fait mon image est une image de type .JPG externe à l'Excel et elle insérée en N6 d'une feuille par le code

Code:

---

1 2 3 4 5

hot.Activate hot.Unprotect Password:=mp hot.Range("N16").Select ActiveSheet.Pictures.Insert(pathImg).Select

---

pathImg est ok, l'insertion se fait bien

Par contre quand je veux la supprimer l'image n'est pas supprimée

Code:

---

1 2 3 4 5 6 7 8 9 10 11

photo = "$N$16" For Each Sh In hot.Shapes If Sh.Type = msoPicture Then If Sh.TopLeftCell.Address = photo Then Sh.Delete Exit For Else End If Else End If Next

---

Si l'image en N16 est insérée par "Insertion/image/sur la cellule" d'Excel alors le code de suppression fonctionne

Est-ce lié au "msoPicture" qui ne serait pas de ce type pour une image insérée par mon code ?