Microsoft 365 mise en forme conditionnel VBA

' Plage est la plage qui sera traitée
' L1 à L4 définit les 4 niveaux où seront apppliquées les couleurs (L1 à L4 compris entre 0 et 1, car traités en % )
' Les 4 couleurs peuvent être redéfinies

Sub MFC(Plage As Range, L1, L2, L3, L4)
    Couleur1 = RGB(0, 0, 0)         'Noir
    Couleur2 = RGB(255, 0, 0)      'Rouge
    Couleur3 = RGB(250, 190, 0)   'Orange
    Couleur4 = RGB(0, 180, 80)      'Vert
    For Each cell In Plage
        Select Case cell
            Case Is <= L1: cell.Font.Color = Couleur1
            Case Is <= L2: cell.Font.Color = Couleur2
            Case Is <= L3: cell.Font.Color = Couleur3
            Case Is <= L4: cell.Font.Color = Couleur4
        End Select
    Next cell
End Sub

Sub TestMFC()
    MFC [A3:H17], 0.39, 0.59, 0.79, 1
End Sub

Si les % sont exprimés entre 0 et 100:
MFC [A3:L3], [C6]/100,[C5]/100,[C4]/100,[C3]/100

Si les % sont exprimés en ... % :
MFC [A3:L3], [C6],[C5],[C4],[C3]

Sub TestMFC()
    With Sheets("Base")
        MFC [A3:L3], .[C6], .[C5], .[C4], .[C3]
        MFC [A5:L5], .[C11], .[C10], .[C9], .[C8]
    End With
End Sub

Sub MFC(Plage As Range, Seuils As Range)
    Dim tablo(4, 2): N = 1
    For Each cell In Seuils
        tablo(N, 0) = cell.Value
        tablo(N, 1) = cell.Font.Color
        tablo(N, 2) = cell.Interior.Color
        N = N + 1
    Next cell
    For Each cell In Plage
        Select Case cell
            Case Is <= tablo(4, 0): cell.Font.Color = tablo(4, 1): cell.Interior.Color = tablo(4, 2)
            Case Is <= tablo(3, 0): cell.Font.Color = tablo(3, 1): cell.Interior.Color = tablo(3, 2)
            Case Is <= tablo(2, 0): cell.Font.Color = tablo(2, 1): cell.Interior.Color = tablo(2, 2)
            Case Is <= tablo(1, 0): cell.Font.Color = tablo(1, 1): cell.Interior.Color = tablo(1, 2)
        End Select
    Next cell
End Sub