Function CountCcolor(range_data As Range, criteria As Range) As Long
Dim datax As Range
Dim xcolor As Long
Dim YearSearch As Integer
xcolor = criteria.Interior.ColorIndex
YearSearch = Year(Range("A9")) 'on récupére l'année de la date de la cellule "A9"
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor And Year(Cells(datax.Row, 1)) = YearSearch Then
CountCcolor = CountCcolor + 1
End If
Next datax
End Function