Macro pour supprimer des données et des images

Bonjour,

j'ai enregistré une Macro qui me permet de remettre mon classeur vierge, dans ce classeur j'ai deux feuilles ( évènements et Transactions )

dans ces feuilles il y a des images qui sont générée chaque jour, ce qui veux dire que leurs emplacements de ligne est aléatoire mais reste toujours dans la même colonne ( H pour évènements; K pour Transactions ).

le problème est que lorsque j'exécute la macro avec de nouvelles données et images cela fait une erreur ci-dessus ( normal puisque les nouvelles images ont changées de place et de nom ).

de plus sur la feuille (évènement) il me faut garder le Logo qui est une image .

ci-joint fichier exemple .

je recherche la bonne syntaxe pour supprimer des images et en garder une ( mon logo )

merci pour votre aide

Bonjour,

pour supprimer les images

    Dim Img As Object
    For Each Img In ActiveSheet.Pictures
        Img.Delete
    Next

pour garder le logo, teste le nom de img avant delete

je t'ai mis un logo-image

Sub epurer()

    Dim Img As Object
    For Each Img In ActiveSheet.Pictures
        If Img.Name <> "monLogo" Then Img.Delete
    Next

End Sub

Génial Merci Steelson , trop fort !

Bon Week-end