Incrémentation de cellule sur une colonne

Bonsoir à tous

Je cherche le moyen en vba de numéroter les cellules de deux colonnes en fonction de la valeur d'une variable.

Je m'explique :

je regarde la valeur que renvoie ma variable (ex: variable_test) et je numérote la colonne A à partir de A5 de 1 jusqu'à la valeur de variable_test

Donc si variable_test = 27

A5 et E5 =1

A6 et E6 =2

A7 et E7 =3

.....etc...

A30 et E30 =26

A31 et E31 =27

De plus si je veux que cela se fasse quand j'active ma feuille dois-je mettre ce code au début de ma macro

Private Sub Worksheet_Activate()

En espérant avoir été assez clair je vous remercie de votre aide

Bonjour

Une idée, à toi à adapter

Option Explicit

Private Sub Worksheet_Activate()
Dim NbLg As Long
Dim Variable_Test As Integer

  Variable_Test = Sheets("Feuil2").Range("G5")
  NbLg = Range("A" & Rows.Count).End(xlUp).Row
  If NbLg > 4 Then
    Range("A5:A" & NbLg & ",E5:E" & NbLg).ClearContents
  End If
  If Variable_Test > 0 Then
    Range("A5,E5") = 1
    Range("A5").AutoFill Range("A5:A" & 4 + Variable_Test), xlFillSeries
    Range("E5").AutoFill Range("E5:E" & 4 + Variable_Test), xlFillSeries
  End If
End Sub

Merci beaucoup c'est exactement ce dont j'avais besoin.

Il ne me reste plus qu'à comprendre la méthode et à l'adapter.

Encore merci