Sub test()
Dim Plage As Range, ColTrv As Range
Set Plage = Feuil1.UsedRange
Set Plage = Plage.Rows(2).Resize(Plage.Rows.Count - 1)
Set ColTrv = Plage.Columns(1).Offset(, Plage.Columns.Count)
ColTrv.FormulaR1C1 = "=INT(RC1)"
Plage.Columns(1).Value = ColTrv.Value
ColTrv.FormulaR1C1 = "=INT(RC3)"
Plage.Columns(3).Value = ColTrv.Value
ColTrv.Delete xlShiftToLeft
End Sub