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, 6, 7, 8, 9)) ***
Tri b, 1, 1, UBound(b) ***
Me.CodePostal.List = b
End Sub