XL 2019 Résultat de la fonction Index et la couleur de la cellule

Option Explicit
Private ClnConsigne As New Collection
Function EnCouleur(ByVal Cel As Range)
   Dim AC As Range, Couleur As Long
   Couleur = Cel.Interior.Color
   Set AC = Application.Caller
   ClnConsigne.Add AC
   ClnConsigne.Add Couleur
   EnCouleur = Cel.Value
   End Function
Sub ExécuterConsignes()
   Dim Cel As Range, Couleur As Long
   While ClnConsigne.Count >= 1
      Set Cel = ClnConsigne(1): ClnConsigne.Remove 1
      Couleur = ClnConsigne(1): ClnConsigne.Remove 1
      Cel.Interior.Color = Couleur
      Wend
   End Sub

Option Explicit
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
   ExécuterConsignes
   End Sub

Option Explicit
Private ClnConsigne As New Collection
Function EnCouleur(ByVal Cel As Range)
   ClnConsigne.Add Application.Caller
   ClnConsigne.Add Cel
   EnCouleur = Cel.Value
   End Function
Sub ExécuterConsignes()
   Dim CelCible As Range, CelSourc As Range
   While ClnConsigne.Count >= 1
      Set CelCible = ClnConsigne(1): ClnConsigne.Remove 1
      Set CelSourc = ClnConsigne(1): ClnConsigne.Remove 1
      CelCible.Interior.Color = CelSourc.DisplayFormat.Interior.Color
      Wend
   End Sub

=EnCouleur(INDEX(C2:C6;EQUIV(E2;B2:B6;0)))

'type
'2=xlexpression(formule)
'9=xlTextString(text string)
Sub test()
    MsgBox "A1 est en " & quellecouleur([A1])
    MsgBox "A2 est en " & quellecouleur([A2])
End Sub
Function quellecouleur(cel As Range)
    quellecouleur = IIf(cel.Interior.Color = 16777215, "Xlnone", cel.Interior.Color)
    typ = cel.FormatConditions(1).Type
    If typ = 9 Then
        If cel = cel.FormatConditions(1).Text Then quellecouleur = cel.FormatConditions(1).Interior.Color
    ElseIf typ = 2 Then
        Formula = Replace(cel.FormatConditions(1).Formula1, Chr(34), "")
        If Evaluate(Formula) Then quellecouleur = cel.FormatConditions(1).Interior.Color
    End If
End Function