Sélection dans une listebox

bonjour,

je début en vba et je ne comprends pas tous. JE veux créer une liste déroulant afin d'aider à la saisie de fiche de production. J'ai réussi à récuper les données mais je n'arrive pas à garder ma sélection valide pour la copier dans une cellule excel. il me prend toujours le premier enregistrement.
Qu'est ce que j'oubli ??

merci de votre aide.

a+

Private Sub CommandButton1_Click()
Sheets("base").Select

Dim Liste As String
Liste = Range("A1").End(xlDown).Address
' Plage de données pour afficher dans liste déroulante
ListBox1.RowSource = "A1:" & Liste
' Afficher le premier enregistrement de la liste (0)
ListBox1.ListIndex = 0
Index = ListBox1.ListIndex
ChoixListe1 = ListBox1.List(Index)


Sheets("TextBox").Select
ActiveSheet.Unprotect

' Stockage du résultat dans les cellules temp
Range("A1").Value = ChoixListe1
Range("C1") = Format(TextBox2.Value, "dd/mm/yyyy")
Range("E1") = TextBox3.Value
Range("G1") = Format(TextBox4.Value, "0"" ""00"" ""00"" ""00"" ""000"" ""000"" ""/"" ""00")
Range("I1") = Format(TextBox5.Value, "00"" ""00"" ""00"" ""00"" ""00")


For i = 1 To 5
If Controls("opt" & i).Value = True Then
Range("K1").Value = Controls("opt" & i).Caption
End If
Next i
Range("a1").Select
Selection.Copy
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Etc ...