Sub aleatoire()
Application.ScreenUpdating = False
Dim i As Integer, nb As Integer, a As Integer, b As Integer, dico As Object
Set dico = CreateObject("Scripting.Dictionary")
nb = 10 'nombre de lignes du tableau
a = -1 'limite inférieur
b = 1.75 'limite supérieure
For i = 1 To nb
'Randomize 'faut-il ou pas le mettre ???
dico(i) = Int(b - a + 1) * Rnd() + a 'bidouillage algorithmique
Next
[A2].Resize(dico.Count, 1) = Application.Transpose(dico.items)
Application.ScreenUpdating = True
End Sub