Private Sub UserForm_Initialize()
Sheets.Add
Sheets("BD").Range("_FilterDataBase").Offset(1).SpecialCells(xlCellTypeVisible).Copy [A1]
Me.ListBox1.List = [A1].CurrentRegion.Value
Application.DisplayAlerts = False
ActiveSheet.Delete
For i = 1 To 3
Me("label" & i) = Sheets("bd").Cells(1, i)
Next i
End Sub