Re-bonjour
En fait quand je l'adapte à mon tableau cela ne fonctionne pas...
J'ai bien recopié le code du module
Function ColorCountIf(ZoneDeRecherche As Object, Modele As Range) As Integer
Application.Volatile True
ColorCountIf = 0
MaCoul = Modele.Interior.ColorIndex
For Each cell In ZoneDeRecherche
If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
Next cell
End Function
Dans un module de mon classeur.
J'ai aussi changé les formules pour les adapter à mon classeur mais il me marque "absent"
Amicalement
Francois