Petite question VBA

Sub Tirage()
Dim n As Long
Randomize
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Do
If n = 10000 Then MsgBox "Pas de résultat !": Exit Do 'sécurité
n = n + 1
[V3] = [A5:T5].Cells(Int(20 * Rnd) + 1)
[W3] = [A5:T5].Cells(Int(20 * Rnd) + 1)
[X3] = [A5:T5].Cells(Int(20 * Rnd) + 1)
[Y3] = [A6:T6].Cells(Int(20 * Rnd) + 1)
[Z3] = [A6:T6].Cells(Int(20 * Rnd) + 1)
[AA3] = [A6:T6].Cells(Int(20 * Rnd) + 1)
[AB3] = [A7:T7].Cells(Int(20 * Rnd) + 1)
[AC3] = [A7:T7].Cells(Int(20 * Rnd) + 1)
Calculate
Loop While [AF1] = 0 Or [AG1] > 8
Application.Calculation = xlCalculationAutomatic
[V3].ClearComments
[V3].AddComment n & " itérations"
[V3].Comment.Shape.TextFrame.AutoSize = True
End Sub

Sub Tirage()
Dim a, n As Long, d1 As Object, d2 As Object, i As Byte, P As Range, x#
Randomize
a = Array("A5:T5", "A5:T5", "A5:T5", "A6:T6", "A6:T6", "A6:T6", "A7:T7", "A7:T7")
Do
  If n = 10000 Then MsgBox "Pas de résultat !": Exit Do 'sécurité
  n = n + 1
  Set d1 = CreateObject("Scripting.dictionary")
  Set d2 = CreateObject("Scripting.dictionary")
  For i = 0 To UBound(a)
    Set P = Range(a(i))
    x = P(Int(P.Count * Rnd) + 1)
    d1(x) = ""
    d2(Application.Min(Int(x / 10), 6)) = ""
  Next
Loop While d1.Count < 8 Or d2.Count < 7
[V3:AC3] = d1.keys
[V3].ClearComments
[V3].AddComment n & " itérations"
[V3].Comment.Shape.TextFrame.AutoSize = True
End Sub

Sub Tirage()
Dim a, ub As Byte, n As Long, d As Object, b(6) As Byte, i As Byte, P As Range, x#
Randomize
a = Array("A5:T5", "A5:T5", "A5:T5", "A6:T6", "A6:T6", "A6:T6", "A7:T7", "A7:T7")
ub = UBound(a)
Do
  If n = 10000 Then MsgBox "Pas de résultat !": Exit Do 'sécurité
  n = n + 1
  Set d = CreateObject("Scripting.Dictionary")
  Erase b 'RAZ
  For i = 0 To ub
    Set P = Range(a(i))
    x = P(Int(P.Count * Rnd) + 1)
    d(x) = ""
    b(Application.Min(Int(x / 10), 6)) = 1
  Next
Loop While d.Count <= ub Or Application.Sum(b) < 7
[V3:AC3] = d.keys
[V3].ClearComments
[V3].AddComment n & " itérations"
[V3].Comment.Shape.TextFrame.AutoSize = True
End Sub

Sub Tirage()
Dim a, ub As Byte, n As Long, d1 As Object, d2 As Object, i As Byte, P As Range, x#
Randomize
a = Array("A5:T5", "A5:T5", "A5:T5", "A6:T6", "A6:T6", "A6:T6", "A7:T7", "A7:T7")
ub = UBound(a)
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
Do
  If n = 10000 Then MsgBox "Pas de résultat !": Exit Do 'sécurité
  n = n + 1
  d1.RemoveAll: d2.RemoveAll 'RAZ
  For i = 0 To ub
    Set P = Range(a(i))
    x = P(Int(P.Count * Rnd) + 1)
    d1(x) = ""
    d2(IIf(x < 70, Int(x / 10), 6)) = ""
  Next
Loop While d1.Count <= ub Or d2.Count < 7
[V3:AC3] = d1.keys
[V3].ClearComments
[V3].AddComment n & " itérations"
[V3].Comment.Shape.TextFrame.AutoSize = True
End Sub

Sub Tirage()
Dim t, ncol%, a, ub As Byte, n As Long, d1 As Object, d2 As Object
Dim i As Byte, x#
Randomize
t = [A5:T7] 'matrice, bien plus rapide
ncol = UBound(t, 2)
a = Array(1, 1, 1, 2, 2, 2, 3, 3) 'lignes
ub = UBound(a)
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
Do
  If n = 10000 Then MsgBox "Pas de résultat !": Exit Do 'sécurité
  n = n + 1
  d1.RemoveAll: d2.RemoveAll 'RAZ
  For i = 0 To ub
    x = t(a(i), Int(ncol * Rnd) + 1)
    d1(x) = ""
    d2(IIf(x < 60, Int(x / 10), 6)) = ""
  Next
Loop While d1.Count <= ub Or d2.Count < 7
[V3:AC3] = d1.keys
[V3].ClearComments
[V3].AddComment n & " itérations"
[V3].Comment.Shape.TextFrame.AutoSize = True
End Sub