A l'ouverture de ton userform tu fais :
Private Sub UserForm_Initialize()
Sheets("Feuil1").Select
DerniereListbox1 = Range("A1").End(xlDown).Address
' Plage de données pour afficher dans liste déroulante
Listbox1.RowSource = "A1:" & DerniereListbox1
' Afficher le premier element de la liste
Genre.ListIndex = 0
End Sub
Et si tu as un bouton valider sur ton userform tu mets ca pour valider tes donnees :
Private Sub Valider ()
Index = Listbox1.ListIndex
ChoixListbox1 = Listbox1.List(Index)
' Stockage du choix effectué dans la liste déroulante en C2
Range("C2").Value = ChoixListbox1
End Sub