Nombres aléatoires différents

Sub Test()
Dim Limite_Haut As Integer, Limite_Bas As Integer, NB_Aleatoire As Integer, i As Integer
Dim Nombre_Iterations As Integer

Randomize

Limite_Bas = 1000
Limite_Haut = 9999
Nombre_Iterations = 1000

For i = 1 To Nombre_Iterations
    NB_Aleatoire = Int((Haut - Bas + 1) * Rnd) + Bas
Next i

End Sub

Sub Test()
Dim Limite_Haut As Integer, Limite_Bas As Integer, NB_Aleatoire As Integer, i As Integer
Dim Nombre_Iterations As Integer, Dico, Tablo

Randomize
Set Dico = CreateObject("Scripting.Dictionary")

Limite_Bas = 1000
Limite_Haut = 9999
Nombre_Iterations = 1000
On Error Resume Next
Do
    NB_Aleatoire = Int((Limite_Haut - Limite_Bas + 1) * Rnd) + Limite_Bas
    Dico.Add NB_Aleatoire, NB_Aleatoire
Loop Until Dico.Count >= Nombre_Iterations
On Error GoTo 0
Tablo = Dico.Items
For i = 1 To Nombre_Iterations
Range("A" & i).Value = Tablo(i - 1)
Next i
End Sub

Sub alea()
Dim coll As Collection
Set coll = New Collection
While coll.Count < 4000
Randomize
x = Int((8999 * Rnd) + 1000)
On Error Resume Next
coll.Add Item:=x, Key:=CStr(x)
On Error GoTo 0
Wend
For n = 1 To 4000
Range("B" & n) = coll(n)
Next n
End Sub

Sub Test()
Dim Limite_Haut As Integer, Limite_Bas As Integer, NB_Aleatoire As Integer, i As Integer
Dim Nombre_Iterations As Integer, Dico

Application.ScreenUpdating = False

Randomize
Set Dico = CreateObject("Scripting.Dictionary")

Limite_Bas = 1000
Limite_Haut = 9999
Nombre_Iterations = 1000
On Error Resume Next
Do
    NB_Aleatoire = Int((Limite_Haut - Limite_Bas + 1) * Rnd) + Limite_Bas
    Dico.Add NB_Aleatoire, NB_Aleatoire
Loop Until Dico.Count >= Nombre_Iterations
On Error GoTo 0

Range("A1:A" & Nombre_Iterations).Value = Application.Transpose(Dico.items)

End Sub

Sub alea()
Set dico = CreateObject("Scripting.Dictionary")
 Randomize
While dico.Count < 4000
  x = Int((8999 * Rnd) + 1000)
  dico(x) = 1
Wend
Range("B1").Resize(4000, 1) = Application.Transpose(dico.keys)
End Sub