Sub ComparaisonDate()
For i = 1 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
j = 15
Do
If Sheets("Feuil1").Range("A" & i).Offset(0, j).Value <> Sheets("Feuil1").Range("A" & i).Offset(0, j + 1).Value Then
Sheets("Feuil1").Range("A" & i).Offset(0, j).Font.ColorIndex = 3
Sheets("Feuil1").Range("A" & i).Offset(0, j + 1).Font.ColorIndex = 3
End If
j = j + 1
Loop Until Sheets("Feuil1").Range("A" & i).Offset(0, j + 1).Value = ""
Next
End Sub