SUPER !
Il me reste juste un bug (débogage : erreur d'exécution 13 - incompatibilité de type pour la ligne ".ListItems(X).ListSubItems.Add , , Dis.Offset(0, i)) :") bizarrement, quand je tape le mot "plan" en mot clef, il n'aime pas du tout... pour les autres mots clefs (que j'ai testé) ça fonctionne parfaitement !
Merci