AV

Ave,

Sub zz_Tirage_Alea()
Application.ScreenUpdating = False
mini = 1: maxi = 20
[A1] = mini
[A1].DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=mini, Stop:=maxi
With Range('B1:B' & maxi + 1 - mini)
.Value = '=rand()'
[B1].Sort Key1:=[B1], Order1:=xlAscending
.ClearContents
End With
End Sub

AV [AV MVP Excel]