Réponse acceptée !
Dim Chaine As String,Tableau() As String, i As Long
Chaine = "mots, plusieurs mots, encore des mots, mot, phrase"
Tableau = Split(Chaine, ",") ' C'est cette ligne qui fait tout le boulot !
For i = LBound(Tableau) To UBound(Tableau)
MsgBox Tableau(i)
Next
Christophe
|