Sub Macro()
Dim MonTab(), x As Long
Set dico = CreateObject("Scripting.Dictionary")
While dico.Count < 1065537
Randomize
S = Int((10000000 * Rnd)) + 1
dico(S) = S
Wend
ReDim MonTab(1 To dico.Count, 1 To 2)
For Each Cle In dico.keys
x = x + 1
MonTab(x, 1) = Cle
MonTab(x, 2) = dico(Cle)
Next
Range("A2").Resize(dico.Count, 2) = MonTab
End Sub