Bonsoir à tous

Je cherche à transformer une chaîne de caractères en 5 colonnes avec TextToColumns.
Les espaces avant ou après chaque découpe sont tronqués. Or je voudrai les conserver.
Y-a-t-il moyen ?

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Range("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, FieldInfo:= _
                Array(Array(0, 1), Array(158, 4), Array(168, 1), Array(1215, 1), Array(1225, 1)), _
                TrailingMinusNumbers:=True
D'avance merci