[Hervé]

Bonjour perdinch, cher michel, re av


une autre facon de faire, plus longue que la méthode d'AV, mais sans l'utilisation d'une colonne supplémentaire.

Sub test()
Dim tablo() As Double
Dim mini As Byte
Dim maxi As Byte
Dim i As Byte, j As Byte, k As Byte
Dim temp As Double

mini = 1
maxi = 20

ReDimPreserve tablo(1 To maxi, 1 To 2)

For i = 1 To maxi
* * * * tablo(i, 1) = i
* * * * tablo(i, 2) = Rnd
Next i

For i = 1 ToUBound(tablo)
* * * * For j = 1 ToUBound(tablo)
* * * * * * * * If tablo(i, 2) > tablo(j, 2) Then
* * * * * * * * * * * * For k = 1 To 2
* * * * * * * * * * * * * * * * temp = tablo(i, k)
* * * * * * * * * * * * * * * * tablo(i, k) = tablo(j, k)
* * * * * * * * * * * * * * * * tablo(j, k) = temp
* * * * * * * * * * * * Next k
* * * * * * * * End If
* * * * Next j
Next i
* * * * * * * *

For i = 1 ToUBound(tablo)
* * * * Cells(i, 1) = tablo(i, 1)
Next i

End Sub

salut