Dim f, ListeVille()
Private Sub UserForm_Initialize()
'--villes +codes postaux
ListeVille = Range("bdd").Value
Me.ComboVille.List = ListeVille
b = Application.Index([bdd], Evaluate("Row(1:" & [bdd].Rows.Count & ")"), Array(2, 1, 3, 4, 5))
Tri b, 1, 1, UBound(b)
Me.CodePostal.List = b
End Sub