Pointer une cellule en fonction d'un nombre

Bonjour.

Je veux réaliser une macro qui écrit une valeur dans plusieurs lignes d'un tableau.

J'ai fait une boucle for qui va écrire une valeur dans une cellule, qui récupère le résultat dans une autre cellule, et qui va copier ce résultat dans la colonne d'un tableau.

Voici ce que je veux faire :

je rentre la valeur 832.3 dans la cellule F6:F7 de la feuille "Calcul_Débit"

Je copie dans le presse-papier le résultat d'un calcul qui se trouve dans la cellule F8:F9

Je colle ce résultat dans la cellule D3 de la feuille "Tableau"

Ensuite j'incrémente de 0.01, donc la boucle suivante, je rentre la valeur 832.31 dans la cellule F6:F7, je récupère le résultat dans la cellule F8:F9.

Mais ce résultat je voudrais le coller dans la cellule D4 de la feuille "tableau", et ainsi de suite

Sub Calcul_déversement()
'
' Calcul_déversement Macro
'

'
    Dim Cote_barrage As Currency

    For Cote_barrage = 832.3 To 834.5 Step 0.01

    Sheets("Calcul_Débit").Select
    Range("F6:F7").Select
    ActiveCell = Cote_barrage
    Range("F8:F9").Select
    Selection.Copy
    Sheets("Tableau").Select
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Next

End Sub

Bonjour, sans fichier pour tester.

Sub Macro1()

Dim Cote_barrage As Currency
For Cote_barrage = 832.3 To 834.5 Step 0.01
numcellule = 3

Worksheets("Calcul_Débit").Range("F6").Value = Cote_barrage
Worksheets("Tableau").Range("D" & numcellule).Value = Worksheets("Calcul_Débit").Range("F8").Value

numcellule = numcellule + 1

Next

End Sub

Super.

Merci beaucoup.

ça fonctionne parfaitement.