Oubli

Bonjour,
j'ai oublié de dire qu'il ya trois conditions positive negative ou en ligne
et ça ne marche pas quand jesseye dadapter le programme de tech_57 :
Je voudrai qu'il ne se passe rien quand une ligne de la colonne 4 est egale a une ligne de la colonne 5 à part ecrire " en ligne " dan la ligne de la colonne 6 ?????????????????????????????????????????????????

Sub test()
Dim i As Integer

For i = 2 To range("D2").End(xlDown).Row
If Cells(i, 4).Value < Cells(i, 5).Value Then
Cells(i, 6).Value = "positive"
Cells(i, 3).Interior.ColorIndex = 43
Cells(i, 6).Interior.ColorIndex = 43
Else: Cells(i, 6).Value = "négative"
Cells(i, 3).Interior.ColorIndex = 3
Cells(i, 6).Interior.ColorIndex = 3
Else: Cells(i, 6).Value = " en ligne"
End If

Next i
End Sub