Dim Sh As Shape
Dim Cible As Range
'Emplacement de l'image
Set Cible = ActiveSheet.Range("C5")
'Boucle sur les forme dans la feuille
For Each Sh In ActiveSheet.Shapes
If Sh.Type = msoPicture Then
If Not Intersect(Cible, Sh.TopLeftCell) Is Nothing Then
Sh.Delete
Exit For
End If
End If
Next Sh