Option Explicit
Sub Couleur_x_de_a_à_k()
Dim c As Range
Columns(6).Interior.Color = xlNone
For Each c In Columns(6).SpecialCells(xlCellTypeConstants).SpecialCells(xlCellTypeAllFormatConditions)
c.Offset(, -5).Resize(, 11).Interior.Color = c.DisplayFormat.Interior.Color
Next
End Sub