Bonjour ,
je me suis permis d'ajouter
l'effacement de la Cellule "B9" avant de Charger la Liste
soit
x = ActiveCell.Value
Range("B9").ClearContents 'Ici
Set c = Feuil1.Range("B1:O124").Find(x, LookIn:=xlValues)
à voir si Utile
Bonne Journée
Jean marie
Excuse-moi, je ne comprend pas pourquoi il faudrait supprimer la cellule B9 après sélection et pas les autres.