Sub testage()
For Each cel In Feuil1.Range("E3:E" & Rows.Count).SpecialCells(xlCellTypeConstants)
If cel > cel.Offset(0, -1) + 6 Then
Range("A" & cel.Row & ":E" & cel.Row).Interior.ColorIndex = 6
Else
Range("A" & cel.Row & ":E" & cel.Row).Interior.ColorIndex = xlAutomatic
End If
Next
End Sub