Reporter couleur MFC dans Spreadsheet

Private Sub Spreadsheet1_CommandChecked(ByVal Command As Variant, ByVal Checked As OWC10.ByRef)

    Dim Plage As Range

    With Me.Spreadsheet1
        .Visible = True
        Set Plage = Sheets("Calendrier 2 ans").Range("B3:AF5")
        For Each c In Plage
            .Cells(c.Row - Plage.Row + 1, c.Column - Plage.Column + 1) = c.Value
            .Cells(c.Row - Plage.Row + 1, c.Column - Plage.Column + 1).NumberFormat = c.NumberFormat
        Next c
    End With
    
End Sub

Option Explicit
Public Function CouleurMFC(RG As Range, Optional Mode As Byte = 0) As Variant
Dim e As Long, i As Byte, LoTest As Boolean
Dim LoMFC As FormatCondition
    Application.Volatile
    'boucle sur le nombre de condition(s)
    'Si pas de MFC .FormatConditions.Count renvoi 0
    For i = 1 To RG.FormatConditions.Count
        Set LoMFC = RG.FormatConditions(i)
        If LoMFC.Type = xlCellValue Then
        'tester le type de la formule entrée
            Select Case LoMFC.Operator
            Case xlEqual
                LoTest = RG = Evaluate(LoMFC.Formula1)
            End Select
            If LoTest Then
                'Peu ajouter d'autre format si nécessaire,
                'comme la bordure, la police etc..
                Select Case Mode
                Case 1
                    CouleurMFC = LoMFC.Interior.Color
                End Select
                Exit Function
            End If
        End If
    Next i
    CouleurMFC = 0
End Function