Private Sub UserForm_Initialize()
Dim F1 As Worksheet, F2 As Worksheet
Set F1 = Worksheets("Villes")
Set F2 = Worksheets("Listes")
Me.ComboBox1.List = F1.Range(F1.Cells(1, 1), F1.Cells(F1.Cells(65536, 1).End(xlUp).Row, 1)).Value
Me.ComboBox2.List = F2.Range(F2.Cells(2, 1), F2.Cells(F2.Cells(65536, 1).End(xlUp).Row, 1)).Value
Me.ComboBox3.List = F2.Range(F2.Cells(2, 3), F2.Cells(F2.Cells(65536, 3).End(xlUp).Row, 3)).Value
Me.ComboBox4.List = F2.Range(F2.Cells(2, 2), F2.Cells(F2.Cells(65536, 2).End(xlUp).Row, 2)).Value
End Sub