Public Function Som_C_V(pl As Range, ref As Range) As Double
Dim v As Double 'déclare la variable v (Valeur de la référence)
Dim coul As XlColorIndex 'déclare la variable coul (Couleur de la référence)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim t As Double 'déclare la variable t (Total)
v = ref.Value 'définit la valeur de référnce v
coul = ref.Interior.ColorIndex 'définit la couleur de référence
For Each cel In pl 'boucle sur toutes les plage de la palge pl
'si la valeur de la cellule cel vaut v et la couleur de fond de la cellule cel est coul, définit le total t
If cel.Value = v And cel.Interior.ColorIndex = coul Then t = t + v
Next cel
Som_C_V = t 'affiche le total t
End Function