FONCTION RECHERCHEV avec 2 critères avec retour de la couleur de la cellule

Function RECHERCHEV_DOUBLE_CRITERES(Table_Matrice As Range, Valeur_Ligne_Recherche As Range, Valeur_colonne_Recherche As Range)

End Function

' Fonction de recherche de couleur, appelée comme suit
' =RechercheCouleur(PlageRechercheLigne, CritèreRechercheDansLignes, PlageRechercheColonne, CritèreRechercheDansColonne)

Function RechercheCouleur(RngLigSearch As Range, CelLigCrit As Range, RngColSearch As Range, CelColCrit As Range)
  Dim Col As Long, Lig As Long
  ' Chercher la valeur dans les ligne de la plage
  Lig = RngLigSearch.Find(What:=CelLigCrit.Value, LookIn:=xlValues, LookAt:=xlWhole, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False).Row
  ' Chercher la valeur dans les colonne
  Col = RngColSearch.Find(What:=CelColCrit.Value, LookIn:=xlValues, LookAt:=xlWhole, _
    SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False).Column
  ' Récupérer la couleur de la cellule au croisement de la ligne/colonne
  RechercheCouleur = Cells(Lig, Col).Interior.Color
End Function

=RechercheCouleur(A2:A12;E20;C1:H1;E21)