Création d'un logiciel de Tirage aléatoire

Option Explicit
Option Base 1
Dim Z As Byte
Dim TabJ As Variant
Dim Tablo As Variant

Sub TirageParties()
Dim A As Byte, B As Byte, C As Byte, D As Byte
Dim i As Integer, j As Integer, k As Integer, NbJ As Byte
Dim NbP As Byte, l As Byte, P As Byte, Lig As Integer, Y As Byte
Dim ZoneR As Range, Cell As Range

Application.ScreenUpdating = False
Z = Range("A65536").End(xlUp).Row
' Effacement des anciennes données
Union(Range("B2:B2000"), Range("D1:DZ1000")).ClearContents
' Mise en nombre de joueurs pair
If Z Mod 2 = 0 Then
MsgBox "Un nombre pair de joueur est nécessaire !": Exit Sub
End If
NbJ = Z - 1
' Tirage aléatoire des joueurs
TirageAleatoire

' Affichage de la liste aléatoire
Range(Cells(2, 2), Cells(Z, 2)) = Tablo
' Tableau des binômes de joueurs
ReDim TabloC(1 To (NbJ * (NbJ - 1)), 1)
' Première boucle pour le nombre de parties

'ZoneR.SpecialCells(xlCellTypeBlanks).Delete
Application.ScreenUpdating = True
End Sub
Sub TirageAleatoire()
Dim j As Integer, k As Integer, T As Byte, X As Byte
Randomize 'Initialisation du générateur de nombres aléatoires

' Mise en mémoire dans un tableau des noms d'équipes
TabJ = Range("A2:A" & Z)
' Déclaration et définition du tableau de la liste aléatoire
ReDim Tablo(1 To UBound(TabJ), 1 To 2)
' Tirage aléatoire des joueurs et mise en  tableau de la liste aléatoire
For j = 1 To Z - 1
Do
X = 0
   T = Int(((Z - 1) * Rnd) + 1)
   Tablo(j, 1) = TabJ(T, 1) ' Mise en colonne aléatoire
      For k = 1 To j - 1
      If Tablo(j, 1) = Tablo(k, 1) Then
      X = 1
      Exit For
      End If
      Next k
Loop Until X = 0
Next j
End Sub