Sub MFC_Formule_Puis_Format()
Application.OnTime Now + TimeValue("00:00:01"), "MEF_Format"
With Range("b4:E4")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=champactif(b4)"
End With
End Sub
Sub MEF_Format()
With Range("b4:E4").FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
End With
MsgBox "MFC Appliquée"
End Sub