Comment effacer une image

Bonjour à toutes et tous,

J'ai créé une image comme suit:

ActiveSheet.Pictures.Insert(NomFichier).Select
With Selection
.Name = "MonImage"
.ShapeRange.LockAspectRatio = msoFalse
.Placement = xlMoveAndSize
.ShapeRange.Height = H
.ShapeRange.Width = L
End With

et j'aimerai qu'elle ne soit pas sélectionnable. j'ai essayé:

Shape.Select.enable = False
.enable = False

sans succès car l'image n'est pas répertoriée. Comment puis je faire pour créer une image et que celle-ci ne soit pas sélectionnable.
Désolé Catrice de changer de post,mais je le remet au devant de la scène, par ailleur, je n'est pas tout saisi ds ton explication.

Bonne soirée
Eric D