Sub Macro5()' macro faite avec l'enregistreur de macro
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 9), Array(1, 5)), TrailingMinusNumbers:=True
End Sub
=TEXTE("20"&STXT(A1;2;6);"0000-00-00")*1