Private Sub UserForm_Initialize()
Worksheets("Commandes").Select
Dim Plage As String
With Sheets("Commandes")
Plage = .Range("A2:AA" & .Range("A65536").End(xlUp).Row).Address
End WithCommandeListBox2.RowSource = "Commandes!" & Plage
ListBox1.RowSource = "Commandes!" & Plage
ListBox2.RowSource = "Commandes!" & Plage