'Extraction de chaine de caractères à partir d'une occurence ("Separator")
MyString = "1;21-5;6;7*;8-95;200;4+1"
MySeparator = ";" 'occurence à rechercher
MyArray = Split(MyString, MySeparator, -1, 1) 'creation du tableau
For i = 0 to UBound(MyArray) 'visu de chaque item du tableau
Resultat = Resultat & vbCrLf & " item=" & i & " " & MyArray(i)
Next
MsgBox Resultat 'Affichage de tous les item