Déconcatener sous excel

Mais c'est vraiment dommage, Nico, de ne pas vouloir profiter d'un outil aussi performant et efficace que DONNÉES/Conversion, qui a certainement donné un travail fou d'analyse et de programmation aux développeurs de Microsoft !

Function decouper(ch As String, Num As Long, sep As String)
    decouper = Split(ch, sep)(Num - 1)
End Function

Sub deconcatene()

'Cellules que tu veux deconcatener
Range("A1").select

'Code de deconcatenation
'Adapter le B1 qui sert à localiser la cellules à partir de laquelle il va coller les données
 Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="|", FieldInfo:=Array(Array(1, 2), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True

End Sub