Sub mfc_coef4()
'declarations
Dim plage As Range
Dim plage_cond1 As Range
Dim plage_cond2 As Range
Dim xa, xb, xc, xd, xe
Dim ji, ii, jj, ij
xa = ActiveCell.Row
xb = selection.Rows.Count - 1
xd = ActiveCell.Column
xe = xd + 22
For xc = xa To xa + xb
ji = 0: ij = 0
Cells(xc, xd).NumberFormat = "0.00"
Cells(xc, xd).HorizontalAlignment = xlCenter
Cells(xc, xd).VerticalAlignment = xlCenter
Cells(xc, xd).FormatConditions.Delete
ji = 0.89
For ii = 1 To 7
For jj = 1 To 8
ij = ij + 1: ji = ji + 0.01
Cells(xc, xd).FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(xc, xe).Address & "=" & ji
Cells(xc, xd).FormatConditions(ij).Interior.ColorIndex = 8 * (ii - 1) + jj
Cells(xc, xd).FormatConditions(ij).StopIfTrue = False
If ij = 2 Or ij = 6 Or ij = 19 Or ij = 20 Or ij = 27 Or ij = 28 Or ij = 34 Or ij = 35 Or ij = 36 Then
Cells(xc, xd).FormatConditions(ij).Font.Color = -1003520
Else
Cells(xc, xd).FormatConditions(ij).Font.Color = -16711681
End If
Next jj
Next ii
Next xc
End Sub