[RESOLU] VBA: mise en forme conditionnelle dans tableaux de tailles variables

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