Comment pourrais-je faire pour compabiliser les cellules d'une même couleur.

En utilisant ce code, par exemple, qui va en outre additionner les valeurs des cellules rouges. Attention, pas celles qui sont colorées par une mise en forme conditionnelle.

sub inventaireRouge()
 sommeRouge = 0
 compterRouge = 0
 For Each cell In ActiveSheet.UsedRange
 If cell.Interior.Color = vbRed Then
 On Error Resume Next
 sommeRouge = sommeRouge + cell.Value
 On Error GoTo 0
 compterRouge = compterRouge + 1
 End If
 Next
 If compterRouge = 1 Then c = "cellule" Else c = "cellules"
 MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
 end if
 end sub