Bonjour,
Tu appliques à tes cellules un format nombre de type entier "# ##0" (sans les guillemets), ou tu modifies la procédure en conséquence (exemple).
Cdlt.
Sub entier()
Dim i As Long, j As Long
For i = 1 To 10
Cells(i, 2) = Int(i * i)
Next
[B1:B10].NumberFormat = "#,##0"
End Sub