probleme de boucle (incrementer le numero de ligne d'un champs)

Bonjour

Je souhaite faire une boucle avec VBA sur Excel.

J'ai une cellule de départ A1, la macro y rentre la valeur 40.
Une fois la valeur rentrée, excel fais les calculs et un résumé des
résultats rempli le champs A4 : I4.
Puis la macro copie le champs A4 : I4 et le colle dans le
champs AA10 : AI10.
Puis la boucle doit rentrer en A1, la valeur 39
copier le champs A4 : I4
coller les valeurs dans le champs AA11 : AI11 (mon probleme et comment
incrementer le numéro de la ligne du champs AAxx : AAxx.)

Etc

Jusqu'à ce que la macro rentre la valeur 1 en A1
copie le champs A4 : I4
colle les valeurs dans le champs AA50 : AI50

Mon objectif et de pouvoir choisir le nombre que l'on rentre en A1 et le
pas d'incrémentation (-1, dans mon exemple).

J'espere ne pas trop en demander, merci d'avance
Bertrand

Bonjour,
Essaie ceci :

Sub zzz()
Sheets("Feuil1").Activate
nb = Range("A1").Value
pas = Range("A2").Value
' ligne départ copie résultats
deb = 11
For i = nb To 1 Step -pas
'------------------------------------------------------------------
'calculs pour test, mettre les tiens
For j = 1 To 9
col = Chr(64 + j)
Range(col & "4").Value = "resultat " & i * j
Next j
'------------------------------------------------------------------
'copier et coller en AAxx
Range("A4:I4").Select
Selection.Copy
Range("AA" & deb).Select
ActiveSheet.Paste
'incrémente le n° de ligne
deb = deb + 1
Next i
End Sub

Bonne journée