Re,
que veux tu dire par fond de couleur determinée ?
je ne comprend pas
pour cellule vierge dans le meme code:
Code :
Function CompteCouleurs(Plage As Range, Reference As Range) As Long
Dim c As Range
Application.Volatile
For Each c In Plage
If c.value="" Then CompteCouleurs = CompteCouleurs + 1
Next c
End Function
A+