Option Explicit
Sub test()
With ActiveSheet
.Shapes (.Shapes.Count).delete
End With
End Sub
Option Explicit
Sub test()
Dim image As Shape, s As Shape
For Each image In ActiveSheet.Shapes
If image.Type = msoPicture Then Set s = image
Next image
s.Delete
End Sub
Option Explicit
Sub test()
Dim image As Shape, s As Shape
For Each image In ActiveSheet.Shapes
If image.Type = msoPicture Then Set s = image
Next image
If Not s Is Nothing Then s.Delete
End Sub
Sub Sup()
Dim deb As Range, a$, s As Shape
Set deb = [A1] 'début du tableau, à adapter
a = deb.End(xlDown)(, 2).Address
For Each s In ActiveSheet.Shapes
If s.TopLeftCell.Address = a Then s.Delete: Exit Sub
Next
End Sub