Sub test()
Dim Tablo
Dim Nombre&
Dim Resultat&
Dim I%
Tablo = Array(100000, 50000, 15000, 14000, 13000, 12000, 11000, 10000, 9000, 8000, 7000, 6000, 5800, 5700, 5600, 5500, 5400, 5350, 5300, 5250, 5200, 5100, 5070, 5050, 5025)
Columns("A:B").ClearContents
Nombre = 218.2
Resultat = Round(1000 * Nombre, 0)
For I = 0 To UBound(Tablo)
Resultat = Resultat - Tablo(I)
Cells(I + 1, "A") = Resultat / 1000
Cells(I + 1, "B") = Round(Resultat, 3) / 1000
Debug.Print Resultat / 1000, Round(Resultat, 3) / 1000
Next I
End Sub