Private Sub UserForm_Initialize()
Me.listPays.List = Feuil4.Range("A2:A" & Feuil4.[A65536].End(xlUp).Row).Value
Me.listProd.List = Feuil4.Range("C2:C" & Feuil4.[C65536].End(xlUp).Row).Value
Me.listInd.List = Feuil4.Range("E2:E" & Feuil4.[E65536].End(xlUp).Row).Value
End Sub