Public Function NbCoul(Zne As Range, Couleur As String) As Long
Application.Volatile True
Dim NbCouleur
For Each cell In Zne
If cell.Interior.ColorIndex = 3 _
And cell.Offset(0, -2) = "Paul" Then
NbCouleur = NbCouleur + 1
End If
Next
NbCoul = NbCouleur
End Function