XL 2016 supprimer certaines images si elles existent

[Foles]

Bonjour,

Je cherche a supprimer certaines images dont je connais le nom, mais elle sont aléatoirement presente, parfois elles sont présentes sur le fichier, parfois elles ne le sont pas.

Si j'utilise un code bête et mechant, le code bug en me disant que le nom n'existe pas,
Si vous pouvez m'aider

J'ai essayé plusieurs codes, le dernier que je trouve logique pour moi est celui ci mais il ne fonctionne pas :

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

Merci de bien vouloir m'aider