Tri VBA avec nb de critères variable

Bonjour,

Je cherche a faire un tri dans un tableau dont le nombre de colonnes (des lieux) peut varier.

Comme les critères de tri ce fait sur tous les lieux, cela signifi que le nombre de critères de tri est variable.

J'ai cherché sur le Web , sans trouvé la solution,

C'est pourquoi je fais appel a vous.

J'ai joint un fichier, qui sera plus clair que mon explication si-dessus.

Merci d'avance pour votre aide

Patrick

bonjour,

proposition de correction

Sub TriNbLieuVariable()
Application.Goto Reference:="TableuLieu"
    ActiveWorkbook.Worksheets("ComparaisonLieu").ListObjects("TableuLieu").Sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("ComparaisonLieu").ListObjects("TableuLieu").Sort. _
        SortFields.Add Key:=Range("TableuLieu[Nb de lieu <> 0]"), SortOn:= _
        xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

        NbdeLieu = WorksheetFunction.CountA(Range(Cells(5, 2), Cells(5, 50)))
    For N = 2 To NbdeLieu
    Lieu = Cells(1, N)
    ActiveWorkbook.Worksheets("ComparaisonLieu").ListObjects("TableuLieu").Sort. _
        SortFields.Add Key:=Range("tableulieu[" & Lieu & "]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    Next N

     With ActiveWorkbook.Worksheets("ComparaisonLieu").ListObjects("TableuLieu"). _
        Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Merci beaucoup h2so4?

Je savais que je n'était pas loin, mais je ne trouvé pas cette syntaxe [" & Lieu & "]

Patrick