Couleurs format MFC non prises en compte dans une formule

Sub TEST()
    Dim rg As Range, cl As Range, colors As Scripting.Dictionary, col As Long, maxnb As Long, colmax As Long, koul
    Set rg = Range("C5:L5")
    Set colors = New Scripting.Dictionary
    For Each cl In rg
       col = cl.Interior.Color
       Select Case col
           Case vbWhite, 8421504:
           Case Else:
               If colors.Exists(col) Then
                   colors(col) = colors(col) + 1
               Else
                   Call colors.Add(col, 1)
               End If
       End Select
            Debug.Print col
    Next cl
    colmax = 0
    maxnb = 0
    For Each koul In colors.keys
       If colors(koul) > maxnb Then
           maxnb = colors(koul)
           colmax = koul
       End If
    Next koul
    Sheets("Synthèse résultats ctrl période").Range("M5").Interior.Color = colmax
End Sub
    

Dim rg As Range, cl As Range, noui As Integer, nnon As Integer, couleur As Integer, ncel As Long
Set rg = Sheets("Fiche de contrôle").Range("$D$295:$D$297")
noui = 0
nnon = 0
ncel = rg.Count
For Each cl In rg
    Select Case cl.Value
        Case "NON":
            nnon = nnon + 1
        Case "OUI":
            noui = noui + 1
    End Select
Next cl
If noui = ncel Then
    couleur = 10 'vert
Else
    If nnon = ncel Then
        couleur = 9 'rouge
    Else
        If noui + nnon = ncel Then
            couleur = 46 'orange
        Else
            couleur = 48 'gris
        End If
    End If
End If
Sheets("Synthèse résultats ctrl période").Range("H39").Interior.ColorIndex = couleur

End Sub