Function ComptePaire(x1$, x2$, plage As Range)
If x1 = x2 Then Exit Function
Dim ncol%, i&, j%, test1 As Boolean, test2 As Boolean
ncol = plage.Columns.Count
For i = 1 To plage.Rows.Count
If i <> 11 And i <> 19 Then 'évite "Tournoi"
test1 = False: test2 = False
For j = 1 To ncol Step 2
If plage(i, j) = x1 Then test1 = True
If plage(i, j) = x2 Then test2 = True
Next j
If test1 And test2 Then ComptePaire = ComptePaire + 1
End If
Next i
End Function