Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Key2:=Range("A1"), Order2:=xlAscending, Header:=xlGuess
ActiveWorkbook.Worksheets("Trier").Sort.SortFields.Clear [...]
[...].Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Key2:=Range("A1"), Order2:=xlAscending, Header:=xlGuess