Supprimer shapes sur certaines feuilles

Bonsoir,

Je fais appel à vos compétences. Voilà, je voudrais supprimer des shapes dont le nom est par exemple: "Image 1"; "Image 5"; etc... des feuilles de calcul dont le nom commence par "CH". Je fais cette macro en consultant des sujets similaires, mais qui ne fonctionne pas.

Sub Tst()
    Dim Ws As Worksheet, img As Shape
    For Each Ws In Worksheets
        If Ws.Name Like "CH*" Then    'boucle sur les feuilles
            For Each img In Ws.Shapes   'boucle sur les shapes
                If img.Name Like "Image *" Then
                    img.Delete
                End If
            Next
        End If
    Next Ws
End Sub

Au pas à pas, ça boucle bien mais aucunes shapes n'est supprimées.

Merci pour votre aide.

Bonsoir

Peux-tu envoyer ton fichier ??

Merci

Bonsoir,

Procédure tout à fait correcte. Pas de raison dans le code...

Faut voir le fichier.

Merci à vous, je viens de résoudre le problème.

En remplaçant Image par Picture, le code fonctionne.

Encore merci