.Range(.Cells(l + 1, deb + 1), .Cells(l + 1, deb + 52)).Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=0", Formula2:="=Cells(l, deb + 60)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).Interior.ColorIndex = 46
Selection.FormatConditions(1).StopIfTrue = False