Mise en forme conditionelle avec Macro

Const Comp As String = "complété"                      'vert
Const PComp As String = "Presque complété"      'orange
Const Manq As String = "Manquante"                   'rouge

Sub Color_MFC()
    Dim derlig As Long
    Dim Nb As Long
    Dim N As Long
    
    With Worksheets("feuil1")       'nom d'onglet a adapter
        derlig = .Range("AM" & Rows.Count).End(xlUp).Row        'derniere cellule non vide colonne AM
        Set Plage = .Range("AM2:AM" & derlig)       'mise en memoire plage de cellules
        Nb = Plage.Rows.Count       'nombre de cellules
        'boucle sur plage
        For N = 1 To Nb
            With .Range("AM" & N + 1)
                If Plage(N, 1) <> "" Then       'non vide
                    If Plage(N, 1) = Comp Then
                        'couleur Verte
                        With .Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 5296274        'vert moyen
                        End With
                        .Font.Bold = True
                        .Font.Color = vbWhite
                    ElseIf Plage(N, 1) = PComp Then
                        'couleur orange
                        With .Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 49407      'orange
                        End With
                        .Font.Bold = True
                        .Font.Color = vbWhite
                    ElseIf Plage(N, 1) = Manq Then
                        With .Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 255        'rouge
                        End With
                        .Font.Bold = True
                        .Font.ColorIndex = xlAutomatic
                    Else
                        'raz couleurs
                        .Interior.Pattern = xlNone
                        .Font.Bold = False
                        .Font.ColorIndex = xlAutomatic
                    End If
                Else
                    'raz couleurs
                    .Interior.Pattern = xlNone
                    .Font.Bold = False
                    .Font.ColorIndex = xlAutomatic
                End If
            End With
        Next N
    End With
End Sub