Sub Set_Mfc()
Dim Formule As String
' Mises en forme conditionnelles _________________________________________________________
With [Tableau1[#Data]]
.FormatConditions.Delete
Rng = .Rows(1).Address(RowAbsolute:=False)
For Each Col In .Columns
Formule = IIf(Formule = "", "", Formule & ";") & "Nb.Si(" & Rng & ";" & Col.Cells(1).Address & ")"
Next
Formule = "=MAX(" & Formule & ")"
With .FormatConditions.Add(Type:=xlExpression, Formula1:=Formule & "=1")
.Interior.Color = vbRed
.StopIfTrue = False
End With
With .FormatConditions.Add(Type:=xlExpression, Formula1:=Formule & "=2")
.Interior.Color = 49407
.StopIfTrue = False
End With
With .FormatConditions.Add(Type:=xlExpression, Formula1:=Formule & ">2")
.Interior.Color = vbGreen
.StopIfTrue = False
End With
End With
End Sub