Sub test()
Dim Strg$, t, Z$
Strg = "COLLEGE VOLTAIRE REMOULINS - MARSEILLE MUCEM - LES MILLES - COLLEGE VOLTAIRE REMOULINS"
t = Split(VBA.Trim(Strg), "-")
Z = Z & "Départ: " & vbTab & t(0) & Chr(13)
Z = Z & "Arrivée: ?" & vbTab & t(1) & Chr(13)
Z = Z & "Retour Point de départ: " & vbTab & t(UBound(t)) & Chr(13)
MsgBox Z, vbInformation, "Résultat"
End Sub