Private Sub cmd_Import_Click()
Dim Wb As Workbook
With listboxwb
.Visible = Not .Visible
.Clear
.ZOrder 0
.AddItem "Nouveau"
For Each Wb In Workbooks
If Not Wb Is ThisWorkbook Then .AddItem Wb.Name
Next
.Top = cmd_Import.Top - .Height
End With
End Sub