Function Couleur(xMatiere)
Dim idx As Variant
'
' Tableau de correspondances Matières/Couleur
With Range("Tab_Matiere[Matieres]")
' Chercher la matière avec l'équivalent de la fonction de feuille EQUIV
' dans la première colonne
idx = Application.Match(xMatiere, .Columns(1), 0)
' Si trouvé alors renvoyer la couleur de fond de la deuxième colonne
If Not IsError(idx) Then Couleur = .Cells(idx, 2).Interior.Color
End With
End Function