With Range("A2:F300").Select
'Supprime les MFC existantes
Selection.FormatConditions.Delete
'Ajoute trois conditions
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=OU($E2=AUJOURDHUI();$F2=AUJOURDHUI())"
Selection.FormatConditions(1).Interior.ColorIndex = 4 'Vert
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(ET($E2-AUJOURDHUI()<8;$E2-AUJOURDHUI()>0);ET($F2-AUJOURDHUI()<8;$F2-AUJOURDHUI()>0))"
Selection.FormatConditions(2).Interior.ColorIndex = 8 'Cyan
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=JOURS360($F2;$H$2)>0"
Selection.FormatConditions(3).Interior.ColorIndex = 36 'Orange pale
End With