Sub tri()
tablo = Range("tabLruCommuns")
For n = LBound(tablo, 1) To UBound(tablo, 1)
For m = LBound(tablo, 1) To UBound(tablo, 1)
x = Val(tablo(n, 1))
y = Val(tablo(m, 1))
If x > y Then
temp = tablo(n, 1)
tablo(n, 1) = tablo(m, 1)
tablo(m, 1) = temp
End If
Next
Next
Range("B1").Resize(UBound(tablo, 1), 1) = tablo
End Sub