Function NbColCar(Plage As Range, Couleur As String)
Dim Nb, N
Select Case Couleur
Case "ROUGE"
ColCar = RGB(255, 0, 0)
Case "BLEU"
ColCar = RGB(0, 176, 240)
Case "NOIR"
ColCar = RGB(0, 0, 0)
End Select
For Each N In Plage
With ActiveSheet.Range(N.Address)
c = .Characters(1, 1).Font.Color
If c = ColCar Then Nb = Nb + 1
End With
Next N
NbColCar = Nb
End Function