Selection.FormatConditions.Delete
'Appliquer couleur grise
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=SI(ET($R1<>"""";$R1<=AUJOURDHUI());VRAI;FAUX)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).Borders(xlLeft).LineStyle = xlContinuous
Selection.FormatConditions(1).Borders(xlRight).LineStyle = xlContinuous
Selection.FormatConditions(1).Interior.Pattern = xlSolid
Selection.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic
Selection.FormatConditions(1).Interior.ThemeColor = xlThemeColorDark1
Selection.FormatConditions(1).Interior.TintAndShade = -0.249946592608417
Selection.FormatConditions(1).Interior.PatternTintAndShade = 0
Selection.FormatConditions(1).StopIfTrue = False
'Appliquer couleur jaune
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=SI(ET($R1<>"""";$R1<AUJOURDHUI()+365);VRAI;FAUX)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetLastPriority
Selection.FormatConditions(1).Borders(xlLeft).LineStyle = xlContinuous
Selection.FormatConditions(1).Borders(xlRight).LineStyle = xlContinuous
Selection.FormatConditions(1).Interior.Pattern = xlSolid
Selection.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic
Selection.FormatConditions(1).Interior.Color = 13434879
Selection.FormatConditions(1).Interior.TintAndShade = 0
Selection.FormatConditions(1).Interior.PatternTintAndShade = 0
Selection.FormatConditions(1).StopIfTrue = False
'Appliquer des bordures à droite et à gauche lorsqu'un n° de client est saisit
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A1<>"""""
Selection.FormatConditions(Selection.FormatConditions.Count).SetLastPriority
Selection.FormatConditions(1).Borders(xlLeft).LineStyle = xlContinuous
Selection.FormatConditions(1).Borders(xlRight).LineStyle = xlContinuous
Selection.FormatConditions(1).StopIfTrue = False