VBA Excel 2007/2010 problème avec suppression d'image

Bonjour,

Je rencontre un problème en VBA sous Excel.
J'ai dans une feuille 2 image une pour imprimer et une autre pour effacer tout en code VBA.
dans une partie de cette feuille on copie toujours les copies d'écran que nous faisons (au travail) et les imprimons donc c'est pour cela que j'ai voulu créer ces deux images pour l'impression puis l'autre pour enlever la copie d'écran que l'on vient d'imprimer.

Mais le problème avec ce code ci-dessous ça m'enlève mes trois images au lieu de m'enlever uniquement la copie d'écran que je viens de lever (j'avoue que c'est normal car les trois sont des images.

Sub EffacerObjet()
    Dim img As Object
       For Each img In ActiveSheet.Shapes
       img.Delete
    Next
End Sub

Comment faire pour lui dire de supprimer les images SAUF les fichiers imprimantes.png et efface.png.

Merci de votre aide (je débute)