Sub test()
equip = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
puissance = 9 * (9 - 1)
Set dico = CreateObject("scripting.dictionary")
Do
eq1 = Round(1 + (Rnd * 8))
re:
eq2 = Round(1 + (Rnd * 8)): If eq2 = eq1 Then GoTo re
dico(eq1 & "-" & eq2) = ""
Loop While dico.Count < puissance
End Sub