Sub test()
tablo = Array(4.5, 8.2, 5.3, 2.2, 2.1)
For n = LBound(tablo) To UBound(tablo)
For m = LBound(tablo) To UBound(tablo)
If tablo(n) < tablo(m) Then
temp = tablo(n)
tablo(n) = tablo(m)
tablo(m) = temp
End If
Next
Next
For n = LBound(tablo) To UBound(tablo)
MsgBox (tablo(n))
Next
End Sub