Calcul de ratio par rapport cell précédente et comparaison

Bonjour,

Pourriez-vous me dire ce qui cloche avec cet essai de code :

Sub test()

Dim i As Integer

For i=1 To 4
If Range("B" & i+1).Value/Range("B" & i).Value>=1.1 And Range("C" & i+1).Value/Range("C" & i).Value<1.1 Then 
Range("D" & i+1)="à vérifier"
End If
Next i

End Sub

Ca me renvoit "Erreur d'exécution BASIC.
Sous-procédure ou procédure de fonction non définie."

J'ai essayer plein d'autres formes d'écriture mais je ne trouve pas.
du style :

Dim i As Integer
Dim ligneA As Integer , ligneB As Integer , ligneC As Integer
ligneA = Range("A2:E2")
ligneB = Range("A3:E3")
ligneC = Range("A4:E4")
For i=1 To 4
If ligneA(i+1)/ligneA(i) >=1.1 And ligneB(i+1)/ligneB(i) <1.1 Then 
ligneC(i+1)="à vérifier"
End If
Next i

Merci pour toute aide!