Sub Dates_Test_Chevauche()
'MJ
derl = Range("C65536").End(xlUp).Row
For lig = 2 To derl
For p = 1 To (derl - 2)
coldeb = 3
Set a = Cells(lig, coldeb)
Set b = Cells(lig, coldeb + 1)
Set c = Cells(lig + p, coldeb)
Set d = Cells(lig + p, coldeb + 1)
If (a >= c And a <= d) Or (b >= c And b <= d) Then Range(a, b).Font.Color = RGB(255, 0, 0)
Next
Next
For lig = derl To 2 Step -1
For p = 1 To (lig - 2)
coldeb = 3
Set a = Cells(lig, coldeb)
Set b = Cells(lig, coldeb + 1)
Set c = Cells(lig - p, coldeb)
Set d = Cells(lig - p, coldeb + 1)
If (a >= c And a <= d) Or (b >= c And b <= d) Then Range(a, b).Font.Color = RGB(255, 0, 0)
Next
Next
End Sub