Sub Ouvre_Usf1()
Dim S As Worksheet
Dim R As Range
Dim lastLig&
Dim var
Set S = Sheets("BDD")
lastLig& = S.Range(Cells(50000, 1), Cells(50000, 1)).End(xlUp).Row
Set R = S.Range(Cells(1, 1), Cells(lastLig&, 8))
var = R
UserForm1.ListBox1.List() = var
UserForm1.Show
End Sub