Sub M_F_C_Couleur()
'
With Sheets("MFC_4_macro").Range("A2:F70")
.FormatConditions.Delete ' Efface les MFC de plage
.FormatConditions.Add Type:=xlExpression, Formula1:="=OU(MOIS($E2)=MOIS(AUJOURDHUI());MOIS($F2)=MOIS(AUJOURDHUI()))"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font ' Texte
.Bold = True ' Gras
.Italic = False ' Italique
.Color = RGB(0, 0, 0) ' Noir
End With
With .FormatConditions(1).Interior ' Fond des cellules
.Color = RGB(217, 217, 217) ' Gris
End With
.FormatConditions(1).StopIfTrue = False
End With
End Sub