Va tout simplement dans le menu de gauche après avoir cliqué sur ta combobox ou list box, tu regarde dans rowsource et tu mets qqc du type : 'feuil1'!A1:A4
Private Sub UserForm_Initialize()
Dim Derlgn As Integer
Derlgn = Range("A65536").End(xlUp).Row
Me.ListBox1.RowSource = "A1:A" & Derlgn'
End Sub
A+++
Jean Marie