Public Sub NettoieNombre()
Dim c%, DerniereLigne%
DerniereLigne = Range("A65536").End(xlUp).Row
For c = 1 To DerniereLigne
Cells(c, 1) = Right(Cells(c, 1), Len(Cells(c, 1)) - 2)
Cells(c, 1) = Left(Cells(c, 1), InStr(Cells(c, 1), ".") - 1)
Next c
End Sub