Bonsoir
C'est juste un exercice de style, sinon de fortes chances que je passe par des variables pour la colonne de fin et pour la dernière ligne
Sub testBis()
Range(Range("A5"), Range("A5").End(xlDown).End(xlToRight)).Sort Key1:=Range("A5").End(xlToRight), _
Order1:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub