Function Eclater(t$)
Dim i%, s
t = Application.Trim(t) 'SUPPRESPACE
For i = 1 To Len(t)
If Mid(t, i, 2) Like " #" Then t = Left(t, i - 1) & Chr(1) & Mid(t, i + 1)
If Mid(t, i, 2) Like "# " Then t = Left(t, i) & Chr(1) & Mid(t, i + 2)
Next
If t = "" Then s = "" Else s = Split(t, Chr(1)): t = s(1): s(1) = s(2): s(2) = t
Eclater = s 'vecteur ligne
End Function