comptage des cellules de couleur

Bonjour,

Je reviens avec mon tableau de présence.
J'ai crée deux case
1 : total entrainement présent
2 : total entrainement absent

en vert il y a le nom des joueurs dans la colonne de gauche.

je voudrais additionnée le nombre de fois qu' un joueur a été présent dans la case total entrainement présent ( ligne )
je voudrais additionnée le nombre de fois qu' un joueur a été absent dans la case total entrainement présent


je précise que je colorie les cases présent avec une macro bleue en haut à droite ( couleur 37) et je colorie les cases absent avec une macro rouge en haut à droite ( couleur 3)

chaque case peut également avoir un menu déroulant correspondant " légende des selections "

je met une piece jointe et je rajoute mes macro déja crée

Sub present()
Selection.Interior.ColorIndex = 37
rng = ActiveCell.Row
For Lejour = 2 To 205
If Cells(5, Lejour).Value = Date Then
If Cells(rng, Lejour).Interior.ColorIndex = 37 Then
If Cells(rng, 1).Value <> "" Then
Cells(rng, 1).Interior.ColorIndex = 37
End If
End If
End If
Next
End Sub
Sub absent()
Selection.Interior.ColorIndex = 3
rng = ActiveCell.Row
For Lejour = 2 To 205
If Cells(5, Lejour).Value = Date Then
If Cells(rng, Lejour).Interior.ColorIndex = 3 Then
If Cells(rng, 1).Value <> "" Then
Cells(rng, 1).Interior.ColorIndex = 3
End If
End If
End If
Next
End Sub

Sub correction()
Selection.Interior.ColorIndex = 0
rng = ActiveCell.Row
For Lejour = 2 To 205
If Cells(5, Lejour).Value = Date Then
If Cells(rng, Lejour).Interior.ColorIndex = 0 Then
If Cells(rng, 1).Value <> "" Then
Cells(rng, 1).Interior.ColorIndex = 0
End If
End If
End If
Next
End Sub


merci pour vos réponse