Sub EffaceImagesDansZone()
Dim ws As Worksheet, rng As Range
Set ws = ActiveSheet 'ou Worksheets("Feuil1") par exemple
ws.Unprotect Password:="7601"
Dim Image
Application.ScreenUpdating = False
For Each Image In ActiveSheet.Shapes
If Not Intersect(Image.TopLeftCell, [AK4:BC43]) Is Nothing And _
Not Intersect(Image.BottomRightCell, [AK4:BC43]) Is Nothing Then Image.Delete
Next Image
ws.Protect Password:="7601"
End Sub