Microsoft 365 Tirage au sort tombola

Sub tirage()
Dim t(0 To 1), tres, i&, j&, k&, n&, aux
   t(0) = Range("tLot"): t(1) = Range("tTick")
   If Range("tTirage").Rows.Count = UBound(t(0)) Then
      If MsgBox("Un tirage semble déjà avoir été fait !" & vbLf & vbLf & _
                "Attention ! Le précédent tirage sera définitivement perdu. " & vbLf & vbLf & _
                "Voulez vraiment procéder à un nouveau tirage ?", vbQuestion + vbYesNo + vbDefaultButton2) <> vbYes Then Exit Sub
   End If
   Randomize
   For i = 1 To UBound(t(1))
      n = 1 + Int(Rnd * UBound(t(1)))
      For j = 1 To UBound(t(1), 2): aux = t(1)(i, j): t(1)(i, j) = t(1)(n, j): t(1)(n, j) = aux: Next
   Next i
   ReDim res(1 To UBound(t(0)), 1 To 4)
   For i = 1 To UBound(res): res(i, 1) = t(0)(i, 1): res(i, 2) = t(0)(i, 2): res(i, 3) = t(1)(i, 1): res(i, 4) = t(1)(i, 2): Next
   Range("tTirage").Clear: Range("tTirage").Resize(UBound(t(0)), 4) = res
End Sub

Sub tirage2()
    Dim T, MaxRow, MinRow, matriCe, I&, tp1, tp2
    MaxRow = [tTick].Rows.Count: MinRow = [tlot].Rows.Count
    matriCe = Evaluate("ROW(2:" & MaxRow & ")") 'matrice de ligne pour la fonction index
    T = Application.Index(Range("A:F").Resize(MaxRow).Value, matriCe, Array(1, 2, 5, 6))    'on rassemble les deux tableaux (c'est une union façon patosh :):):) )
    'on inverse 2 ligne au hasard de 1 à MaxRow pour les colonne 3 et 4
    For I = 1 To MinRow
        x = Int(1 + (Rnd * (MaxRow - 1)))
        tp1 = T(I, 3): tp2 = T(I, 4): T(I, 3) = T(x, 3): T(I, 4) = T(x, 4): T(x, 3) = tp1: T(x, 4) = tp2
    Next
    Range("tTirage").Columns("A:B").Clear: Range("tTirage").Resize([tlot].Rows.Count, 4) = T
    
    MsgBox "tirage terminé"
End Sub