Sortir d'une procédure VBA

Bonjour à tous,

Quand la procédure suivante est activé, via un CALL, tout marche très bien. La photo que je souhaite voir disparaître est bien retirée. Sauf que, s'il n'y a pas de photo à retirer la procédure est bloquée. Comme puis-je en sortir et reprendre le cours normal de la procédure.
Merci par avance.

Sub EffaceMentShapeChamp()
Sheets("FICHES").Select
   For Each s In ActiveSheet.Shapes
    If Not Intersect(s.TopLeftCell, Range("$A$1:$L$9")) Is Nothing Then s.Delete
  Next s
End Sub