Bonjour,
Remplace ton code par le suivant:
Sub MAJ()
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 9), Array(2, 1), Array(16, 1), Array(19, 2), Array(25, 9), _
Array(27, 1), Array(31, 1), Array(48, 1), Array(53, 1), Array(56, 4), Array(63, 1), Array( _
72, 1)), TrailingMinusNumbers:=True
Range("K1:K" & Range("C65536").End(xlUp).Row).FormulaR1C1 = "=1*(1&""/""&LEFT(RC[-8],LEN(RC[-8])-2)&""/""&RIGHT(RC[-8],2))"
Columns("K:K").Copy
Range("C1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
With Columns("C:C")
.NumberFormat = "[$-40C]mmm-yy;@"
.ColumnWidth = 8.86
End With
Columns("K:K").Delete Shift:=xlToLeft
Range("A1").Select
End Sub
Bonne journée
@Christophe@