Option Explicit
Private Sub Workbook_Open()
Dim s As Shape
Application.ScreenUpdating = False
With Sheets("cerise") ' nom onglet adapter
For Each s In .Shapes
If Not Intersect(s.TopLeftCell, .Range("c4:e50")) Is Nothing Then s.Delete
Next s
End With
Application.ScreenUpdating = True
End Sub