Sub Macro1()
Range("M2:T18425").FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(M2<>"""";ESTNUM(M2)=FAUX)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub