Private Sub UserForm_Initialize()
With Worksheets("Feuil1") 'Feuille Cible
Derlgn = .Cells(.Rows.Count, 1).End(xlUp).Row
Dercol = .Cells(1, .Columns.Count).End(xlToLeft).Column
Tablo = .Range(.Cells(1, 1), .Cells(DerLgn, DerCol)).Value
End With
Me.ComboBox1.List = Tablo
End Sub