Sub Tirage()
' Tirage aléatoire sans doublons
Dim Tab1(), Nombre%, Limite%
Application.ScreenUpdating = False
[C2:C65000].ClearContents
[F1].Select
Nombre = [F1].Value + 1
Limite = Nombre
Aleatoire Nombre, Limite, Tab1
Range("C2:C" & Nombre).Value = Application.Transpose(Tab1)
[COLOR="Blue"][SIZE="4"][B] ' [/B][/SIZE]Call Tri[/COLOR]
End Sub