Function totalParCouleur&(rn As Range, rp As Range, v As Range)
'par ROGER2327
Application.Volatile
Dim coulRef, oCel As Range
coulRef = v.Cells(1, 1).Interior.ColorIndex
For Each oCel In rn.Rows
totalParCouleur = totalParCouleur - (oCel.Cells(1, 1).Interior.ColorIndex = coulRef) * Cells(oCel.Row, rp.Columns(1).Column).Value
Next
End Function