Sub pairs()
Dim i As Integer
Dim x As Integer
score = 0
For i = 1 To 15
x = Int(Rnd * (100)) + 1
If (x And 1) = 0 Then
'MsgBox "pair"
score = score + 1
Else
'MsgBox "impair"
End If
'Cells(i, 1) = x
Next
MsgBox ("il y a" & " " & score & " " & "nombres pairs")
End Sub