bonjour le fil
une autre proposition
Sub TirageDesPoules()
Dim aA
aA = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row).Value 'vos villes
For i = 1 To UBound(aA) - 1
r = WorksheetFunction.RandBetween(i, UBound(aA)) 'élément aléatoire
x = aA(i, 1)
aA(i, 1) = aA(r, 1) 'echanger les 2
aA(r, 1) = x
Next
Set c = Range("U2:AE8")
c.ClearContents
k = 1
For i = 1 To c.Rows.Count
For j = 1 To c.Columns.Count Step 2
c.Cells(i, j) = aA(k, 1)
k = k + 1
If k > UBound(aA) Then Exit Sub
Next j
Next i
End Sub