Sub MelangeEquipe()
IndexM = Array(1, 13, 2, 9, 3, 8, 12, 4, 10, 5, 6, 14, 11, 7, 15)
With Sheets("Tournoi")
tablo = .[F5:G19]
For i = 0 To 14: Cells(5 + i, "F") = tablo(IndexM(i), 1): Cells(5 + i, "G") = tablo(IndexM(i), 2): Next i
tablo = .[F22:G36]
For i = 0 To 14: Cells(22 + i, "F") = tablo(IndexM(i), 1): Cells(22 + i, "G") = tablo(IndexM(i), 2): Next i
tablo = .[F39:G53]
For i = 0 To 14: Cells(39 + i, "F") = tablo(IndexM(i), 1): Cells(39 + i, "G") = tablo(IndexM(i), 2): Next i
tablo = .[F56:G70]
For i = 0 To 14: Cells(56 + i, "F") = tablo(IndexM(i), 1): Cells(56 + i, "G") = tablo(IndexM(i), 2): Next i
End With
End Sub