Option Explicit 'oblige à déclarer les variables
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Coul As Integer 'déclare la variable Coul (Couleur de la cible)
Dim Cont As Variant 'déclare la variable Cont (Contenue de la cible)
Dim Cel As Range 'déclare la variable Cel
Dim x As Long 'déclare la variable x
Coul = Target.Interior.ColorIndex 'définit la variable Coul
Cont = Target.Value 'définit la variable Cont
x = 0 'définit la variable x
'boucle sur toutes les cellules éditée de la feuille (plage à adapter à ton cas)
For Each Cel In ActiveSheet.UsedRange
'condition : si la cellule est de la même couleur que la cible
' et le texte et le même que celui de la cible, alors x = x+1 (redéfinit la variable x)
If Cel.Interior.ColorIndex = Coul And Cel.Value = Cont Then x = x + 1
Next Cel 'prochaine cellule de la plage
Cancel = True 'évite le menu contextuel lié au clic du bouton droit
MsgBox 'Il y a ' & x & ' cellules de cette couleur contenant ' & Cont & '.' 'message
End Sub