Public Function TriCombo(liSte)
Dim First As Integer, Last As Integer, i As Integer, j As Integer, Temp, Temp2
First = LBound(liSte)
Last = UBound(liSte)
For i = First To Last - 1
For j = i + 1 To Last
If CDbl(liSte(i, 0)) > CDbl(liSte(j, 0)) Then
Temp = liSte(j, 0)
Temp2 = liSte(j, 1)
liSte(j, 0) = liSte(i, 0)
liSte(j, 1) = liSte(i, 1)
liSte(i, 0) = Temp
liSte(i, 1) = Temp2
End If
Next j
Next i
TriCombo = liSte
End Function