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

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

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