C'est bon, je viens de trouver une macro qui me donne le résultat souhaité :

Sub Champs_eclatés()

    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

End Sub

Marc

Bonjour,

Je souhaite séparer des chaines de caractères compris dans une cellule à partir d'un caractère précis (dans mon cas ",") et en les éclatant dans des champs distincts.

ex : Aboucaya A., Celse J., Dauphin J.-P., Rombaut D. 

Résultat souhaité :

champ1             champ2        champ3              champ4

Aboucaya A.      Celse J.        Dauphin J.-P.     Rombaut D. 

Le nombre de "," varie d'une cellule à l'autre.

Merci pour votre aide,

Mi