Function MFC_Coul_Cell(rVal As Range, Tabl As Range) As Long
'rVal: Valeur de départ
'Tabl: Plage avec couleurs et pourcentage
'On suppose que l'utisateur met la couleur de fond dans le tableau F3:Y16
'selon les bornes (ou par une mise en forme conditionnelle)
Dim c As Range
MFC_Coul_Cell = 0 'Valeur par défaut
For Each c In Tabl
If c.Interior.ColorIndex = rVal.Interior.ColorIndex Then
MFC_Coul_Cell = rVal.Value * (1 + c.Value) 'Valeur + %
Exit Function
End If
Next c
End Function