Repeter une serie de nombre dans une colonne

Bonjour à tous,

Toujours debutant en VBA j'essaye de trouver un script en VBA qui me permettrai dans une colonne de nommer des cellules de 1 à 8, et de boucler jusqu'à la dernière ligne .

Ex en B j'ai des lignes jusqu'à la ligne 22 et bien je voudrai que de A1 A8 soit nommé de 1 à 8, A9 à A16 de 1 à 8, A16 à 22 de 1 à 6

Merci de votre aide et surtout de vos explications pour pouvoir être autonome par la suite

Merci

Bonjour,

Teste ceci

Sub test()
  Dim i%, j%
  j = 1
    For i = 1 To 22
      Cells(i, 1) = j
      j = j + 1
      If j = 9 Then j = 1
    Next i
End Sub