Bonjour à tous !!

Après une bonne heure de recherche sans succès je viens poster ce message pour espérer obtenir une réponse à ce cas particulier.

J'ai une macro qui supprime un ensemble d'images et zones de texte dans la plage B40:L209 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
    For Each Img In ActiveSheet.Shapes
        If Not Intersect(Img.TopLeftCell, Range("$B$40:$L$209")) Is Nothing Then
            Img.Delete
        End If
    Next Img
Toutes les images se suppriment sans problème.
L’inconvénient c'est que ma liste déroulante présente en E2 n'est pas utilisable : disparition du petit onglet à droite de la cellule. Ma liste est pourtant encore présente dans Validation des données.
En supprimant la liste de la case E2 et en l'ajoutant de nouveau, l'onglet reste toujours invisible.

Avez-vous déjà rencontré ce problème ?
Quel moyen existe-t-il, en modifiant mon code, pour que ma liste déroulante ne soit pas affectée par cette macro ?

Merci d'avance pour l'aide apportée !

Pastis.vi