Bonjout Kawtdanne
Voici le code
Public Sub tranche()
Dim m As Single
Dim e As Integer
Dim x As Integer
Dim y As Integer
Dim Lig As Long
' Boucle de la 2ème ligne jusqu'à la dernière remplie
' Correspond à CTRL+flèche haut à partir de la dernière cellule 65536
For Lig = 2 To Range("A" & Rows.Count).End(xlUp).Row
m = Range("A" & Lig).Value
e = Int(m / 500)
x = e * 500
y = x + 500
Range("B" & Lig).Value = "la tranche est de:[ " & CStr(x) & "; " & CStr(y) & " ] "
Next Lig
End Sub
A+