Function Compter(N)
Dim Lig As Integer, nb As Integer, i As Integer
Lig = Application.WorksheetFunction.CountA(Range("A1:A10000"))
nb = 0
For i = 1 To Lig
If Application.WorksheetFunction.CountIf(Range("A" & i & ":" & "F" & i), N) > 0 Then
nb = nb + 1
End If
Next i
Compter = nb
End Function