XL 2016 Trier une plage de données de A à Z et de Z à A avec formule

Option Explicit

Sub Test()
Dim LastRow As Long

    Application.ScreenUpdating = False
    With Feuil1
        LastRow = .UsedRange.Rows.Count

        .Range("A1:C1").Select
        .Sort.SortFields.Clear

        .Sort.SortFields.Add Key:=.Range("A2:A" & LastRow), _
                             SortOn:=xlSortOnValues, _
                             Order:=xlAscending, _
                             DataOption:=xlSortNormal

        .Sort.SortFields.Add Key:=.Range("B2:B" & LastRow), _
                             SortOn:=xlSortOnValues, _
                             Order:=xlAscending, _
                             DataOption:=xlSortTextAsNumbers

        .Sort.SortFields.Add Key:=.Range("C2:C" & LastRow), _
                             SortOn:=xlSortOnValues, _
                             Order:=xlDescending, _
                             DataOption:=xlSortNormal

        With .Sort
            .SetRange Range("A1:C" & LastRow)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With

        .Range("$A$1:$C$" & LastRow).AutoFilter Field:=1, Criteria1:="<>"
        .Range("D1").Select
    End With

    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
        .FreezePanes = True
    End With

    Application.ScreenUpdating = True
End Sub