Bonsoir BobStriker et Didier
Tu peux utiliser aussi le code suivant :
1- Remplacer les signes( , ou - ou : ou = ou ; ect...) par un espace avec la fonction remplacer puis poursuivre sur le code précédent :
Sub DecoupChaine()
Columns(1).Replace What:="-", Replacement:=" "
Columns(1).Replace What:=",", Replacement:=" "
Columns(1).Replace What:=":", Replacement:=" "
Columns(1).Replace What:=";", Replacement:=" "
Columns(1).Replace What:="=", Replacement:=" "
Columns(1).TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, Space:=True
End Sub
Cordialement
CBernardT