Private Sub UserForm_Initialize()
Dim NomDeFeuilEnCours As String, lidep1 As Integer, cellule As Range
NomDeFeuilEnCours$ = "Feuil1"
lidep1 = 21
With Sheets(NomDeFeuilEnCours)
ComboPax.AddItem "" 'ajoute une ligne vierge en début de liste
For Each cellule In .Range(Cells(lidep1, 1), Cells([A65536].End(xlUp).Row, 1))
ComboPax.AddItem cellule
Next cellule
ComboNuits.AddItem ""
For Each cellule In .Range(Cells(lidep1, 2), Cells([B65536].End(xlUp).Row, 2))
ComboNuits.AddItem cellule
Next cellule
Combocategories.AddItem ""
For Each cellule In .Range(Cells(lidep1, 3), Cells([C65536].End(xlUp).Row, 3))
Combocategories.AddItem cellule
Next cellule
ComboPrixMaxi.AddItem ""
For Each cellule In .Range(Cells(lidep1, 4), Cells([D65536].End(xlUp).Row, 4))
ComboPrixMaxi.AddItem cellule
Next cellule
End With
End Sub