bonjour,
pas de fichier ?
une solution pour 9 équipes.
Sub arbitre()
Randomize
ne = 9 ' 9 équipes
With ActiveSheet
dl = .Cells(Rows.Count, 4).End(xlUp).Row
a = Application.Sequence(ne)
' pour chaque tour
For i = 2 To dl Step 3
t = a
'determine les équipes qui ne jouent pas
For j = 0 To 2
For k = 4 To 6 Step 2
v = .Cells(i + j, k)
t(v, 1) = 0
Next k
Next j
' choisir les arbitres au hasard parmi les équipes qui ne jouent pas
For j = 0 To 2
Do
arb = Application.RandBetween(1, ne)
Loop Until t(arb, 1) <> 0
.Cells(i + j, 7) = t(arb, 1)
t(arb, 1) = 0
Next j
Next i
End With
End Sub