ListBox à la suite

Bonjour à tous,

Je reviens pour un nouveau problème .. Je pars d'une listBox1 contenant divers items que je souhaite afficher dans deux nouvelles listes. Au premier clic de souris, j'ajoute le premier dans ListBox2 puis les suivants dans ListBox3 en évitant que ceux rajouter dans la liste 3 ne correspondent a celui ajouté en List 2..mais je dois rater quelque chose

Private Sub ListBox1_Click()
Dim i As String
i = 1
ListBox2.AddItem (Me.ListBox1)
i = i + 1
If i > 1 Then
If Me.ListBox1 <> Me.ListBox2 Then
ListBox3.AddItem (Me.ListBox1)
End If
End If
End Sub

Cordialement