Function SommeCouleur_MoisV(Zone As Range, CRef As Range, X, Y, ZoneDate As Range, Mois 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(ZoneDate.Cells(i, 1)) = Month(Mois) And Year(ZoneDate.Cells(i, 1)) = Year(Mois) Then
S = S + Cel.Offset(Y, X)
End If
Next
SommeCouleur_MoisV = S
End Function