[Résolu] Incrémenter un nombre dans celulle suivante

[A1]=i mod 10

Sub Test()
Dim t As Double
Dim rg As Range

Set rg = Range("A60000").End(xlUp)

Do
t = Timer + 0.5: Do Until Timer > t: DoEvents: Loop
If (rg Mod 10 = 0) Then
    Set rg = rg.Offset(1, 0)
    rg = rg.Offset(-1, 0) + 1
Else
    rg = rg + 1
End If
Loop Until rg.Row = 20      'pour arrêter le code... à adapter

End Sub

Sub Test()
Dim x As Integer, i As Integer, t As Double
For x = 1 To 10
    i = i + 1
     [A1].Value = i
If [A1].Value = 10 Then: [A2].Value = i
t = Timer + 0.5: Do Until Timer > t: DoEvents: Loop
  Next
  
For j = 1 To 10
k = k + 1
[A2].Value = i
If [A2].Value = i Then: [A2].Value = i + k
t = Timer + 0.5: Do Until Timer > t: DoEvents: Loop
    Next
End Sub