Sub tri_listbox()
Dim Tbl, N%, k%
Dim Plage As Range
With ListBox_liste
N = .ListCount: k = .ColumnCount: Tbl = .List
End With
With Sheets("temp")
.Activate
.Cells.Clear
Set Plage = .Cells(1).Resize(N, k)
Plage = Tbl
.Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=Columns(4), _
.Sort.SortFields.Add Key:=Columns(4), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange Plage
' .Header = xlGuess
' .MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
Plage.Columns(3).NumberFormat = "dd/mm/yyyy"
Plage.Columns(4).NumberFormat = "dd/mm/yyyy"
ListBox_liste.List = Plage.Value
End Sub