Macro Excel combinaison de chiffres aléatoire

'### Constante à adapter ###
Const NB_COMBINAISONS As Long = 12000
'###########################

Sub aa()
Dim S As Worksheet
Dim g&
Dim i&
Dim bool As Boolean
Dim Combi&(1 To 3)
Dim T(1 To NB_COMBINAISONS, 1 To 3)
For i& = 1 To NB_COMBINAISONS
  Randomize Timer
  If bool Then
    i& = i& - 1
    bool = False
  End If
  For g& = 1 To 3
    Combi&(g&) = Int((90 * Rnd) + 1)
  Next g&
  If Combi&(3) = Combi&(2) Or Combi&(2) = Combi&(1) Or Combi&(3) = Combi&(1) Then
    bool = True
  Else
    For g& = 1 To 3
      T(i&, g&) = Combi&(g&)
    Next g&
  End If
Next i&
'---
Set S = Sheets.Add
S.Range("a1:c" & NB_COMBINAISONS & "") = T
End Sub

Sub TirageCombinaisons()
Dim n As Byte, nc&, Ntirages&, combi() As Byte
Dim i As Byte, j As Byte, k As Byte
Dim lig&, liste(), d As Object, dc&
n = 90
nc = Application.Combin(n, 3) '117480 combinaisons
Ntirages = 12000 'nombre de tirages
'---Création de la liste des combinaisons---
ReDim combi(1 To nc, 1 To 3)
For i = 1 To n - 2
  For j = i + 1 To n - 1
    For k = j + 1 To n
      lig = lig + 1
      combi(lig, 1) = i
      combi(lig, 2) = j
      combi(lig, 3) = k
    Next
  Next
Next
'---tirages aléatoires---
ReDim liste(1 To Ntirages, 1 To 3)
Set d = CreateObject("Scripting.Dictionary")
Randomize
While d.Count < Ntirages
  lig = 1 + Int(nc * Rnd)
  If Not d.exists(lig) Then
    d(lig) = ""
    dc = d.Count
    liste(dc, 1) = combi(lig, 1)
    liste(dc, 2) = combi(lig, 2)
    liste(dc, 3) = combi(lig, 3)
  End If
Wend
'---édition---
[D2:F2].Resize(Ntirages) = liste
End Sub

Sub TirageArrangements()
Dim n&, na&, Ntirages&, arrang() As Byte
Dim i As Byte, j As Byte, k As Byte
Dim lig&, liste(), d As Object, dc&
n = 90
na = n * (n - 1) * (n - 2) '704880 arrangements
Ntirages = 12000 'nombre de tirages
'---Création de la liste des arrangements---
ReDim arrang(1 To na, 1 To 3)
For i = 1 To n
  For j = 1 To n
    If j <> i Then
      For k = 1 To n
        If k <> i And k <> j Then
          lig = lig + 1
          arrang(lig, 1) = i
          arrang(lig, 2) = j
          arrang(lig, 3) = k
        End If
      Next
    End If
  Next
Next
'---tirages aléatoires---
ReDim liste(1 To Ntirages, 1 To 3)
Set d = CreateObject("Scripting.Dictionary")
Randomize
While d.Count < Ntirages
  lig = 1 + Int(na * Rnd)
  If Not d.exists(lig) Then
    d(lig) = ""
    dc = d.Count
    liste(dc, 1) = arrang(lig, 1)
    liste(dc, 2) = arrang(lig, 2)
    liste(dc, 3) = arrang(lig, 3)
  End If
Wend
'---édition---
[D2:F2].Resize(Ntirages) = liste
End Sub