Sub CommandButton1_Click()
Dim Taille%, i%, j%, Buffer
Taille = Range("A65500").End(xlUp).Row
ReDim T(Taille, 1)
For i = 0 To Taille
T(i, 0) = i + 1
T(i, 1) = Rnd
Next i
For i = 0 To Taille
For j = 0 To Taille
If T(i, 1) > T(j, 1) Then
Buffer = T(i, 0): T(i, 0) = T(j, 0): T(j, 0) = Buffer
Buffer = T(i, 1): T(i, 1) = T(j, 1): T(j, 1) = Buffer
End If
Next j
Next i
For i = 2 To Taille
Cells(i, "D") = T(i, 0)
Next i
End Sub