Function NbConditionsDateCouleur(Plage_Donnees As Range, Cellule_Date_Couleur As Range) As Long
Dim C As Range
Dim Couleur&
Dim DateBase As Date
Dim cpt& 'compteur
'--- Définition des conditions : date et couleur ---
Couleur& = Cellule_Date_Couleur.Interior.Color
DateBase = Cellule_Date_Couleur
'--- Recherche des occurences ---
For Each C In Plage_Donnees
If IsDate(C) Then
If C.Interior.Color = Couleur& Then
If C <= DateBase Then cpt& = cpt& + 1
End If
End If
Next C
'--- Valeur de retour ---
NbConditionsDateCouleur = cpt&
End Function