Macro Boucle avec cellule $Fixe$

Bonjou à tous,

Alors voila j'ai une macro qui me permet d'inscrire une formule dans une autre feuille (Merci à VBACrumble)

voici mon problème;

dans la 2ieme colonne 4ieme ligne je veux avoir (D2/$B2$-1)
C'est donc dire que de haut en bas B2 est fixe,
(pour la première colonne c'est parfait)

Par contre lorsque j'applique le code ci-dessous,
j'ai bien sur un petit problème dans les colonne suivante

Par exemple: dans la colonne 3ieme colonne 4ieme ligne
je retrouve (D3/$B2$-1) étant donnée que j'ai fixé le b2

mais je devrais plutôt avoir (D3/$B3$-1)

Bref je ne sais pas s'il faut intégrer une boucle avec i+1 ou quelque chose de plus simple, mais pour l'instant c'est la galère

Sub macros2()
Dim f As Worksheet: Dim f2 As Worksheet
Dim formule As String: Dim i: Dim fin As Range
Set f = ThisWorkbook.Sheets("R-Rank")
Set f2 = ThisWorkbook.Sheets("Px")
Dim DateZ As String

formule = _
"=IF(Px!RC<>"""",Px!R[1]C/Px!R2C2-1,"""")"

For i = 2 To 8
Set fin = f2.Cells(65536, i).End(xlUp).Offset(-1, 0)
f.Range(f.Cells(2, i), _
fin.Address).FormulaR1C1 = formule
Next
End Sub

Cliquez pour agrandir...

Merci de votre aide