Il faut penser à distinguer les ex aequo.
Private Sub Worksheet_Activate()
With Feuil1 'CodeName de la feuille source
.[A:V].Sort .[U1], xlDescending, , .[A1], xlAscending, Header:=xlYes 'tri avec 2 clés
[A3:A12] = .[A2:A11].Value
[B3:B12] = .[U2:U11].Value
Columns(1).AutoFit 'ajustement de la largeur
.[A:V].Sort .[A1], xlAscending, Header:=xlYes
End With
End Sub