Calcul en fonction d'une couleur

bonjour à vous ci dessous mon soucis :

(voir tableau ci joint) c'est un tableau pour les heures, mais je voudrais trouver le moyen de calculer le nombre d'heure en fonction de la couleur : pour "congés", "récup", "arret" et "HR"

et cela sur tout le tableau

Suis-je clair ??

Par avance, merci

Bonsoir,

Les couleurs sur quelles lignes ?? Celles où se trouvent les chiffres 8, 7 etc ??

A te relire

Bonsoir

Avec deux fonctions de S. Royer, mpfe

'pour trouver la couleur d'une cellule
Function Couleur(CkCell As Object)
'S. Royer, mpfe
    Couleur = Abs(CkCell.Interior.ColorIndex)
End Function
'pour compter le nombre de cellules d'une couleur donnée
Function ColorCountIf(SearchArea As Object, BgColor As Integer) As Integer
'S. Royer, mpfe
    For Each cell In SearchArea
        ColorCountIf = ColorCountIf + Abs(cell.Interior.ColorIndex = BgColor)
    Next cell
End Function

super, merci beaucoup, je vais voir si tout colle