Sub MFC()
Dim col%
Application.ScreenUpdating = False
With ActiveSheet
.Cells.FormatConditions.Delete 'RAZ
col = .Cells.Find("*", , xlValues, , xlByColumns, xlPrevious).Column
For col = 4 To col Step 4
With .Columns(col).Resize(, 3)
.Select
x = "=$" & .Cells(1).Address(0, 0)
.FormatConditions.Add xlExpression, Formula1:=x & "=""C"""
.FormatConditions(1).Interior.ColorIndex = 44
.FormatConditions.Add xlExpression, Formula1:=x & "=""L"""
.FormatConditions(2).Interior.ColorIndex = 4
End With
Next
.[A1].Select
End With
End Sub