XL 2019 Tri de liste vba. Résolu

Sub Tri()
    For F = 1 To 9
        Select Case F
            Case Is = 1
                xNomTableau = "Tableau27"
            Case Is = 2
                xNomTableau = "Tableau26"
            Case Is = 3
                xNomTableau = "Tableau1"
            Case Is = 4
                xNomTableau = "Tableau4"
            Case Is = 5
                xNomTableau = "Tableau24"
            Case Is = 6
                xNomTableau = "Tableau23"
            Case Is = 7
                xNomTableau = "Tableau22"
            Case Is = 8
                xNomTableau = "Tableau21"
            Case Is = 9
                xNomTableau = "Tableau20"
        End Select
        xNomEntete = Range(xNomTableau & "[#Headers]")
       
        ActiveWorkbook.Worksheets("Listes").ListObjects(xNomTableau).Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Listes").ListObjects(xNomTableau).Sort.SortFields.Add2 Key:=Range(xNomTableau & "[[#All],[" & xNomEntete & "]]"), SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Listes").ListObjects(xNomTableau).Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    Next F
End Sub