ben t comik toi
je demanderais pas si javais poessayé
je demande au cas ou saurais comment faire
paske g essayé mais el probleme
c kil me met le premier mot
ensuite les 2 mots dapres
et apres les 3 mots dapres
For i = 1 To Len(tachainedemot)
vieuxI = i Do Until Mid$(tachainedemot, i, 1) " " Or i Len(tachainedemot)
i = i + 1
Loop
z = z + 1
If i < Len(tachainedemot) Then mot = Mid$(tachainedemot, vieuxI, i - vieuxI) If i Len(tachainedemot) Then mot Mid$(tachainedemot, vieuxI, i)
MsgBox (mot)
Next
j ai testé sous Excel et ça me donne bien une msgbox par mot entier, mais pitetre il y a mieux, j ai fait vite fait.
A toi de remplacer mon msgbox par un ajout dans ta liste maintenant.