Incrémentation d'une colonne sur 10 lignes

Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim i As Long 'déclare la variable i (Incrément)

dl = Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A)
Cells(2, 1).Value = 1 'initialise le comptage
For i = 1 To dl 'boucle de 1 à dl
    Cells(i + 2, 1).Value = (i \ 10) + 1 'place dans la ligne (i+2) l'entier de la division de i par 10, plus 1
Next i 'prochaine ligne de la boucle
End Sub

Option Explicit
Sub test()
Dim n As Variant, i As Long, j As Integer
n = Application.InputBox("Indiquer le pas ?", Type:=1)
If VarType(n) = vbBoolean Then Exit Sub
j = 1
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step n
    Cells(i, 1).Resize(10) = j
    j = j + 1
Next i
End Sub

Option Explicit
Sub test()
Dim n As Variant, c As Variant, i As Long, j As Integer
n = Application.InputBox("Indiquer le pas ?", Type:=1)
c = Application.InputBox("Indiquer le numéro de la colonne...", Type:=1)
If VarType(n) = vbBoolean Or VarType(c) = vbBoolean Then Exit Sub
j = 1
For i = 2 To Cells(Rows.Count, c).End(xlUp).Row Step n
    Cells(i, c).Resize(10) = j
    j = j + 1
Next i
End Sub

c = Application.InputBox("Indiquer le numéro de la colonne...", Default:=9, Type:=1)

Cells(i, c).Resize(n) = j