Comptage cellule de couleurs en vba

Bonjour,

Désolée de vous solliciter de nouveau.

Comme je l'indiquais je ne maîtrise pas du tout VBA.

Pouvez-vous m'indiquer comment intégrer la macro communiquée par ccm81 dans mon fichier cela me rendrait grand service.

Cordialement

avant tout, il serait utile que tu expliques précisément ce que tu veux obtenir.
"faire ressortir la couleur" et "le résultat doit être vert", cela ne veut rien dire.
essaie d'être précis et concret.
"la macro communiquée par ccm81": c'est quoi et où?
prend du temps pour réfléchir et bien expliquer, peut-être en montrant un exemple du résultat attendu.

Pour faire simple peux-tu juste m'indiquer où je dois coller le code que m'a communiqué ccm81 pour que je puisse le tester. Je n'arrive pas à le faire fonctionner quand je le colle à ma macro n°18.

Function ccc() As Long
Dim rg As Range, cl As Range, colors As Scripting.Dictionary, col As Long, maxnb As Long, colmax As Long, koul
Set rg = Range("c5:l5")
Set colors = New Scripting.Dictionary
For Each cl In rg
col = cl.Interior.Color
Select Case col
Case vbWhite, 8421504:
Case Else:
If colors.Exists(col) Then
colors(col) = colors(col) + 1
Else
Call colors.Add(col, 1)
End If

End Select
Next cl
colmax = 0
maxnb = 0
For Each koul In colors.keys
If colors(koul) > maxnb Then
maxnb = colors(koul)
colmax = koul
End If
Next koul
ccc = colmax
End Function

Merci par avance :-)

cela te semble certainement plus simple de ne pas prendre le temps de répondre à mes questions.
je ne pourrai cependant pas t'aider si tu n'y réponds pas.
de plus, peux-tu prendre le temps de comprendre et d'appliquer ceci: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code