Dans un module (AlT+F11 puis insertion/Module)
Function CompteCouleurFond(champ As Range)
Application.Volatile
For Each c In champ
If c.Interior.ColorIndex <> xlNone Then temp = temp + 1
Next c
CompteCouleurFond = temp
End Function
Pour Maj:
F9 ou pinceau ou
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub