bonjour biomed le forum tu peus faire comme cela Option Explicit
Sub Macro1()
Dim c As Variant
Dim nb As String
nb = 0
For Each c In Selection
If c.Interior.ColorIndex = 3 Then
nb = nb + 1
End If
Next c
MsgBox 'Il y a ' & nb & ' cellules font rouge dans cette plage.'
End Sub' meme procedure pour les autres couleurs dans l ex: tu selectionne dabord la plage a tester salutations