Probleme ecriture adresse cellule avec variable

Bonjour,

j'ai un soucis d'écriture avec une variable

J'aimerais dans ce cas ci dessous remplacer le 3 de l'adresse '=ALEA.ENTRE.BORNES(V3;W3)' par la variable i qui correspond au numéro de ligne.

Merci pour toutes aides

Sub MacroAleatoire()

Dim i As Integer

For i = 3 To 5 'Ligne de 3 à 5

If Range("L" & i).Value = 0 Then 'si cellule = nulle

Range("P" & i).FormulaLocal = "=ALEA.ENTRE.BORNES(V3;W3)" 'donne une t° de cuisson aléatoire"

Range("P" & i).Font.ColorIndex = 3 'ecriture blanche

End If

Range("P" & i).Value = Range("P" & i).Value 'remplace la formule par la valeur

Next i

End Sub

Bonjour,

À tester:

Range("P" & i).FormulaLocal = "=ALEA.ENTRE.BORNES(V" & i & ";W" & i & ")" 

Merci U. Milité

j'ai passé des heures a chercher, et j'étais loin de cette solution