'On renseigne les elements de la liste date day(sans doublons):
Columns("A:A").Select
Selection.Copy
Range("K1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("K:K").Select
ActiveSheet.Range(Cells(1, 11), Cells(1000000, 11)).RemoveDuplicates Columns:=1, Header:=xlNo
Selection.Sort Key1:=Range("K1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Fin = Range("K1").End(xlDown).Row
Filtre.zl_date.Clear 'Nettoyage zone de liste zl_date
For nb_item = 2 To Fin
'Format date: voilà ce que je rajoute pour que ce qu'il y a dans la zone de liste soit en format date:
Cells(nb_item, 11).Value = Format(Cells(nb_item, 11).Value, "mm/dd/yyyy")
Filtre.zl_date.AddItem Cells(nb_item, 11)
Next nb_item
Filtre.zl_date.ListIndex = -1
'Columns("K:K").Delete
Cells(1, 1).Select