Sub Remplissage_aleatoir()
Dim r_m As Range
Dim lng_count As Long
Dim lng_x As Long
Dim lng_rnd As Long
Dim tmp As Variant
Set r_m = Range("E5:E26")
lng_count = r_m.Cells.Count
Randomize
For lng_x = 1 To lng_count
lng_rnd = Int((lng_count * Rnd) + 1)
tmp = r_m.Cells(lng_x)
r_m.Cells(lng_x) = r_m.Cells(lng_rnd)
r_m.Cells(lng_rnd) = tmp
Next
End Sub