' 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