Sub ComparaisonDate()
For i = 1 To Sheets("Feuil1").Range("A1048576").End(xlUp).Row
if Sheets("Feuil1").Range("A" & i ).Offset(0,14).Value <>_
Sheets("Feuil1").Range("A" & i ).Offset(0,15).Value Then
Sheets("Feuil1").Range("A" & i ).Offset(0,14).Font.ColorIndex = 3
Sheets("Feuil1").Range("A" & i ).Offset(0,15).Font.ColorIndex = 3
End if
Next
End Sub