Sub Macro1()
Dim vCar&
If Selection.Count > 1 Then Exit Sub
If Selection.Columns = 1 Then Exit Sub 'la cellule sélectionnée ne doit pas être en colonne 1
vCar = Len(Selection)
Selection.TextToColumns Selection(1, 0), 2, FieldInfo:=Array(Array(0, 9), Array(vCar - 4, 1), Array(vCar, 9))
End Sub