Trier automatiquement une liste d'employés par ancienneté fait apparaître immédiatement les profils les plus expérimentés en haut du tableau, utile par exemple pour préparer une liste de priorité de promotion.

Sub ClasserParAnciennete()
    Range("A1:B15").Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlYes
End Sub

Trier sur plusieurs critères à la fois

Range("A1:C15").Sort Key1:=Range("B1"), Order1:=xlDescending, _
                      Key2:=Range("C1"), Order2:=xlAscending, Header:=xlYes

Ajouter Key2 départage les employés à égalité sur le premier critère (ancienneté identique), par exemple en triant ensuite par ordre alphabétique de nom au sein d'un même niveau d'ancienneté.

À vous de jouer : adaptez la macro pour trier par ordre croissant, du moins ancien au plus ancien.