VBA Help Programmation

Bonjour,

Je suis nouvelle dans la programmation VBA, et j'aurai d'aide pour me corriger mon mini programme :

Sub test()

For i = 5 To 1000 Step 1
Dim a
Dim b
Dim c

a = Range("I" & i).Value
b = Range("J" & i).Value
c = Range("B2" & i).Value

If a <> "" And b <> "" Then

If a < c And b < c Then
Range("M" & i).Value = 1
End If

If b > c Then
Range("N" & i).Value = 0
End If

If a < c And b > c Then
Range("o" & i).Value = Range("L" & i).Value
End If

End If
Next i
End Sub



Merci à tous de votre aide :)