''CODE POSTAL
Set Fe = Worksheets("Feuil3")
Set f3 = Worksheets("Feuil3")
With Fe: Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
Set Dico = CreateObject("Scripting.Dictionary")
For Each Cel In Plage: Dico(Cel.Value) = "": Next Cel
ComboBox12.List = Dico.keys