Sub PrincipeSplit()
Chaine = "123$ABC$XYZ:987$ZYX$BCA"
A = Split(Split(Chaine, ":")(0), "$")(0) ' renvoie 123
B = Split(Split(Chaine, ":")(0), "$")(1) ' renvoie ABC
C = Split(Split(Chaine, ":")(0), "$")(2) ' renvoie XYZ
D = Split(Split(Chaine, ":")(1), "$")(0) ' renvoie 987
E = Split(Split(Chaine, ":")(1), "$")(1) ' renvoie ZYX
F = Split(Split(Chaine, ":")(1), "$")(2) ' renvoie BCA
End Sub