XL 2019 Tri sur plusieurs feuilles via macro

Option Explicit

Sub Tri()
Dim Wsh As Worksheet, LastRow As Long
    Application.ScreenUpdating = False
    For Each Wsh In ThisWorkbook.Worksheets
        If Wsh.Name <> Feuil1.Name And Wsh.Name <> Feuil2.Name Then
            With Wsh
                .Activate
                LastRow = Wsh.UsedRange.Rows.Count
                .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:=xlSortNormal
                .Sort.SortFields.Add Key:=Range("C2:C" & LastRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

                With .Sort
                    .SetRange Wsh.Range("A1:C" & LastRow)
                    .Header = xlYes
                    .MatchCase = False
                    .Orientation = xlTopToBottom
                    .SortMethod = xlPinYin
                    .Apply
                End With
                .Range("D1").Select
            End With
        End If
    Next Wsh
    Application.ScreenUpdating = True
End Sub