VBA -Tri colonne par ordre décroissant

Bonjour,

je souhaiterai trier une colonne d'un tableau par ordre décroissant sans utiliser l'icone excel.
j'avais déjà un code mais il y a une erreur, après tri toutes les valeurs du tableau sont identiques au maximum, je vous transmets le code:

For i = 0 To nb - 1
j=i
for k=j+1 to nb
If tableau(k) > tableau(k) Then
j=k
next k

If i <> j Then
tmp = tableau(j)
tableau(j) = tableau(i)
tableau(i) = tmp
End If

Next i

Merci de votre aide