Sub effacer_images()
With Worksheets("calcul")
Dim image As Shape
For Each image In ActiveSheet.Shapes
If image.Name = "img1" Then
.Shapes.Range(Array("img1")).Delete
ElseIf image.Name = "img2" Then
.Shapes.Range(Array("img2")).Delete
ElseIf image.Name = "img3"Then
.Shapes.Range(Array("img3")).Delete
ElseIf image.Name = "img4" Then
.Shapes.Range(Array("img4")).Delete
'(etc)
End If
Next
End With