Sub triDecroissant(tableau)
nb = UBound(tableau)
tabTemp = tableau
ReDim tableau(1 To nb)
For i = 1 To nb
pos = 1
For L = 1 To nb
If Val(LCase(tabTemp(i))) > Val(LCase(tabTemp(L))) And i <> L Then
pos = pos + 1
End If
Next
For ii = 1 To 1
Select Case True
Case pos = nb
Case tableau(nb - pos) = "": tableau(nb - pos) = tabTemp(i)
Case Else
pos = pos + 1
ii = ii - 1
End Select
Next
Next
End Sub