Sub test_Croissant()
Nombre_Alea_III
End Sub
Sub test_Décroissant()
Nombre_Alea_III xlDescending
End Sub
Private Sub Nombre_Alea_III(Optional Sens_Tri As XlSortOrder = 1)
'souce:Sub aleatoire [08/2015] - ROGER2327 / Magic_Doctor / job75
Dim dk As Object, NbLgn&: Set dk = CreateObject("Scripting.Dictionary")
Randomize
With Selection
NbLgn = .Rows.Count
While dk.Count < NbLgn
dk(Round((35 - 1) * Rnd() + 1, 0)) = ""
Wend
.Value = Application.Transpose(dk.keys): .Sort .Item(1), Sens_Tri
End With
End Sub