bonjour Nabil
Une solution consiste à nommer les objets lors de leur création
c'est ensuite plus facile pour les retrouver et les supprimer
par exemple dans ta macro d'origine :
........
Feuil1.DropDowns.Add(294, 168, 168, 15.75).Select
With Selection
.Name = "Cible"
.ListFillRange = "A1:A10"
.LinkedCell = "$H$10"
.DropDownLines = 8
.Display3DShading = False
End With
.......
et ensuite dans ton autre macro , quand tu souhaites supprimer l'objet :
......
'suppression de l'objet uniquement s'il y a une donnée de sélectionnée dans la liste
If Not ActiveSheet.Shapes("Cible").ControlFormat.ListInde x = 0 Then _
ActiveSheet.Shapes("Cible").Delete
......
bonne soirée
MichelXld