Private Sub UserForm_Initialize()
Dim Wbk As Workbook
validated = False
Caption = " Adresse du chantier"
Set CBL = New ComboBoxLiés
On Error Resume Next
Set Wbk = Workbooks("BdD Villes.xlsx")
If Err Then Set Wbk = Workbooks.Open("C:\base\BdD Villes.xlsx")
On Error GoTo 0
CBL.Plage Wbk.Worksheets("Liste").[A2:B2]
' CBL.Plage Range("CODE_POSTAL_CEL1")
CBL.Add Me.CB_CodePostal, "B"
CBL.Add Me.CB_Ville, "C"
CBL.Actualiser
'CL.Actualiser
End Sub