Donc pour comprendre ton problème il faut ouvrir ton fichier !Explication en piece jointe
=TRIER(A2:B13;2)
=INDEX($A$2:$A$13;EQUIV(LIGNE()-1;$B$2:$B$13;0))
Sub Trier()
[a1].Resize(Cells(Rows.Count, 1).End(xlUp).Row, 2).Sort [b1], 1, Header:=1
End Sub
@Dranreb a fourni un moyen qui fonctionne pour toutes les versions d'Excel, non ?la fonction trier n'existe pas sur excel 2016 comment faire pour la remplacer ????