Function BilanNonFait(SearchArea As Object, Nom As Range)
Dim MaCoul As Integer
Application.Volatile True
MaCoul = 3
For Each cell In SearchArea
If cell.Interior.ColorIndex = MaCoul And cell = Nom Then BilanNonFait = BilanNonFait + 1
Next cell
End Function