Insérer une formule avec boucle parcourir feuilles et incrémenter variable

Salut tout le forum,

j'ai besoin de votre aide.

Dans mon classeur j'ai une feuille récapitulative qui va contenir des données de plusieurs personnes et 1 feuille par personne.

Le nom des feuilles "personnelles" est un chiffre de 1 à x

Je voudrais que sur chaque feuille "personnelle" la cellule B7 indique la valeur d'une cellule de la colonne D de la feuille récapitulative.

Je souhaite donc parcourir mes feuilles "personnelles" tout en parcourant la colonne D de la feuille récapitulative.

Voilà mon code pour l'instant :

Sub test()

Dim numFeuille As Integer
Dim numLigne As Integer

numLigne = 4

For numFeuille = 1 To 20

    Sheets("" & numFeuille & "").Range("B7").Formula = "=recap!(D" & numLigne & ")"

    numLigne = numLigne + 1

 Next

 End Sub

Merci pour vodre aide.

Edit Resolu :

Sub test()

Dim numFeuille As Integer
Dim numLigne As Integer

numLigne = 4

For numFeuille = 1 To 20

    Sheets("" & numFeuille & "").Range("B7").Formula = "=recap!D" & numLigne

    numLigne = numLigne + 1

 Next

 End Sub