Code VBA tri personnalisé

Bonsoir Forum,

SVP j'ai besoin code vba tri personnalisé selon les 5 crtères dans limage au dessus du bouton ordre en utilisant lr lastrow dernière ligne contient valeur de la colonne C

Merci infiniment

bonsoir forum,

Sub Hichamordre()
     dl = Range("C" & Rows.Count).End(xlUp).Row - 13     'nombre de lignes
     If dl > 1 Then
          Set c = Range("A14:L14").Resize(dl)
          With ActiveWorkbook.Worksheets("liste").Sort
               With .SortFields
                    .Clear
                    .Add2 Key:=c.Columns("L"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
                    .Add2 Key:=c.Columns("F"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                    .Add2 Key:=c.Columns("H"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                    .Add2 Key:=c.Columns("J"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                    .Add2 Key:=c.Columns("E"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
               End With
               .SetRange c
               .Header = xlNo
               .MatchCase = False
               .Orientation = xlTopToBottom
               .SortMethod = xlPinYin
               .Apply
          End With
     End If
End Sub

Bonsoir BsAlv, Bonsoir Forum

Merci infiniment BsAlv.