Pb liste déroulante

Bonjour tt le monde,

Je suis en galère et j'espère que quelqu'un pourra m'aider.
Je voudrais que les choix fais dans ma listbox1 apparaissent tous dans ma listbox2 ce qui n'est pas le cas dans le programme suivant,
Si quelqu'un avait une solution à me proposer,
merci beaucoup d'avance


Private Sub CommandButton1_Click()

Dim element_select As Boolean
Dim nb_elements, I As Integer

element_select = False
nb_elements = UserForm1.ListBox1.ListCount

ListBox2.Clear

'For I = 0 To nb_elements - 1
'If ListBox1.Selected(I) = True Then
'element_select = True
'ListBox2.AddItem ListBox1.List(I)


For I = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(I) = True Then
element_select = True
ListBox2.AddItem (I) ' Par éxemple


Exit For

End If
Next

If element_select = False Then
MsgBox "Vous n'avez pas sélectionné de paramètres influents => Fin du programme"
Exit Sub
End If

End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub ListBox2_Click()

End Sub

Private Sub OptionButton1_Click()

ListBox1.MultiSelect = fmMultiSelectSingle

End Sub

Private Sub OptionButton2_Click()

ListBox1.MultiSelect = fmMultiSelectMulti

End Sub

Private Sub OptionButton3_Click()

ListBox1.MultiSelect = fmMultiSelectExtended

End Sub

Private Sub UserForm_Initialize()

For I = 0 To nb_elements - 1
ListBox1.AddItem "Choice " & (ListBox1.ListCount + 1)
Next I

OptionButton1.Caption = "Single Selection"
ListBox1.MultiSelect = fmMultiSelectSingle
OptionButton1.Value = True

OptionButton2.Caption = "Multiple Selection"
OptionButton3.Caption = "Extended Selection"

CommandButton1.Caption = "Show selections"
CommandButton1.AutoSize = True

End Sub