Salut Karl,
En fait, tu n'as pas besoin d'une macro pour y arriver.
En mode création, tu appelles les propriétés de ta ListBox :
LinkedCell ----> B3
ListFillRange --> I4:I649
(Il faudra y revenir pour intégrer les données au-delà de S)
Pour faire apparaître les résultats, 3 formules RECHERCHEV feront l'affaire :
en A8
=RECHERCHEV($B3;Dico;2;0)
en B8
=RECHERCHEV($B3;Dico;3;0)
et en C8
=RECHERCHEV($B3;Dico;4;0)
(Dico est le nom donné à l'ensemble des données de I1 à L649)
Et ça roule !
A+
Horatio