Case xlColorScale: Set CS = OBjFC
For N = 1 To CS.ColorScaleCriteria.Count
L = L + 1
If Sortie Then
CS.ColorScaleCriteria(N).FormatColor.Color = Cells(L, "K").Interior.Color
Else
Cells(L, "K").Interior.Color = CS.ColorScaleCriteria(N).FormatColor.Color