Private Sub UserForm_Initialize()
Dim cellule As Range
For Each cellule In Range("A1:A" & Range("A65536").End(xlUp).Row)
ListBox1.AddItem cellule.Value
Next
End Sub
en deplacant le programme dans l'evenement clic du bouton au lieu de l'initialisation de la USF ca marche.
Merci pour ton aide.