Sub Speedy()
Worksheets(1).Activate
'Cette routine génére les nombres de
'1 à k dans un ordre aléatoire
Dim tablo, i&, j&, k&, x&
Application.ScreenUpdating = False
Randomize
k = 36241
ReDim tablo(1 To k)
For i = 1 To k
tablo(i) = i
Next
'permutation
For i = k To 1 Step -1
x = Int(((i) * Rnd) + 1)
j = tablo(x)
tablo(x) = tablo(i)
tablo(i) = j
Next
Range("A1:A" & k) = Application.Transpose(tablo)
tablo = Clear
End Sub