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
Merci d'avoir évalué mon fichier.
C'est vrai que cela peut paraître embêtant mais ce qui est certains c'est que par formule, c'est impossible et du coup je serais obligé d'opter pour du VBA, mais cela pourrait être l'objet d'une prochaine MAJ, pourquoi pas ! Je te tiendrais au courant.