'version 3 sans doublons en mélangeant simplement dans le désordre
Sub Bouton1_Cliquer()
Selection.NumberFormat = "#0.00"
t = Evaluate("ROW(1:99)")
For i = 1 To UBound(t): x = Int(1 + (Rnd * (UBound(t) - 1))): tp = t(i, 1): t(i, 1) = t(x, 1): t(x, 1) = tp: Next
For i = 1 To Selection.Rows.Count: t(i, 1) = t(i, 1) / 100: Next
Selection = t
End Sub