Sub test()
Application.ScreenUpdating = False
Dim t(1 To nb, 1 To nb)
For x = 1 To nb
For y = 1 To nb
t(x, y) = x Xor y
Next
Next
With Cells(1).Resize(UBound(t, 1), UBound(t, 2))
.Value = t
.FormatConditions.AddColorScale ColorScaleType:=3
.FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValueLowestValue
With .FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
.FormatConditions(1).ColorScaleCriteria(2).Type = xlConditionValuePercentile
With .FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
.FormatConditions(1).ColorScaleCriteria(3).Type = xlConditionValueHighestValue
With .FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With
For Each cel In .Cells
cel.Font.Color = cel.DisplayFormat.Interior.Color
Next
End With
Application.ScreenUpdating = False
End Sub
Sub grille()
Cells.RowHeight = 2
Cells.ColumnWidth = 0.2
End Sub