Sub tronquer()
Dim tablo() As Variant
With ActiveSheet
'tablo = .Range("A1:A18").Value
tablo = Selection.Value
For i = LBound(tablo, 1) To UBound(tablo, 1)
tablo(i, 1) = Left(tablo(i, 1), Len(tablo(i, 1)) - 1)
Next i
'.Range("A1:A18") = tablo
'.Range("A1:A18").NumberFormat = "0000000000000"
Selection = tablo
Selection.NumberFormat = "0000000000000"
End With
End Sub