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
Etoto
Etoto
Hello,

Excuse-moi, je ne comprend pas pourquoi il faudrait supprimer la cellule B9 après sélection et pas les autres.
super pratique merci, 'ai une question sur la dernière version , est ce possible du choix de l'unité par clique aussi sur la liste (1er tableau)
on a tendance a cliquer dessus.
Etoto
Etoto
Hello,

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.