Function NP(Plage As Range, P As Byte)
Dim C As Range, n As Byte
For Each C In Plage
If C Mod 2 = 0 Then n = n + 1
Next
If n = P Then NP = 1 Else NP = 0
End Function
Function ND(Plage As Range, P As Byte)
Dim C As Range, n As Byte
For Each C In Plage
If C < 10 Then n = n + 1
Next
If n = P Then ND = 1 Else ND = 0
End Function