Sub FinTôt()
Range("A1:M1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="<>0", Operator:=xlAnd
Range("B2:M160").Select
Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, DataOption1 _
:=xlSortNormal
Selection.AutoFilter
Range("A1").Select
End Sub