Function SommeCouleur_Mois_AnneeV(Zone As Range, CRef As Range, X, Y, ZoneMoisAnnee As Range, MoisAnnee As Date)
Dim c, Cel, S, i
c = CRef.Interior.ColorIndex
S = 0
i = 0
For Each Cel In Zone
i = i + 1
If Cel.Interior.ColorIndex = c And Month(ZoneMois.Cells(i, 1)) = Month(Mois) And Year(ZoneMoisAnnee.Cells(i, 1)) = Year(MoisAnnee) Then
S = S + Cel.Offset(Y, X)
End If
Next
SommeCouleur_Mois_AnneeV
End Function