Bonsoir,
il te faut les déconcaténer
Sub deconcat()
'
' deconcat Macro
With ActiveSheet
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(43, 1), Array(50, 1), Array(57, 1), Array(64, 1), _
Array(71, 1), Array(78, 1), Array(85, 1), Array(92, 1), Array(99, 1), Array(106, 1)), _
TrailingMinusNumbers:=True
End Sub