bonjour Steph,Charly
une autre solution,avec 2 fonctions imbriquées
Function ColorCountIf(SearchArea As Object, BgColor As Integer) As Integer
'S. Royer, mpfe
For Each Cell In SearchArea
ColorCountIf = ColorCountIf + Abs(Cell.Interior.ColorIndex = BgColor)
Next Cell
End Function
Function couleur(CkCell As Object)
'S. Royer, mpfe
couleur = Abs(CkCell.Interior.ColorIndex)
End Function
à bientôt