Public Sub TriListe() 'à voir
Dim l As Long
With Feuil2
l = .Range(a(Li) & 2000).End(xlUp).Row '2000 à adapter si plus de ligne
.Range(.Cells(3, a(Li)), .Cells(l, a(Li)).Offset(, 2)) _
.Sort Key1:=.Cells(3, a(Li)), Order1:=xlAscending, Key2:=.Cells(3, a(Li)).Offset(, 1) _
, Order2:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
End With
End Sub