Help! VBA liste !

je repose la question parce que j'ai vraiment besoin d'aide !

je voudrais remplir une liste avec les élements sélectionnés dans une autre liste.
le tout avec des boutons du genre ">", "<", ">>", "<<"
exemple si je selectionne un element dans la premiere liste et que j'appuie sur ">", l'element disparait de la liste pour apparaitre dans l'autre.
le probleme c'est que je n'arrive pas à faire disparaitre l'element, ni a remplir la deuxieme liste car je n'ai trouvé que des solutions utilisant la methode additem qui ne fonctionne pas !
pour info j'utilise VBA et Access2000.
si quelqu'un a une solution qu'il me le fasse savoir au plus vite par pitié je n'en peux plus !
merci d'avance !

L'intuition est nécessaire, comme le vent elle lève la brume.

ListBox1 et ListBox2 sont deux ListBox (et oui !)
CommandButton3 sert à initialiser les ListBox
CommandButton2 est le bouton >>
CommandButton1 est le bouton >

Private Sub CommandButton1_Click() Dim i As Long For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i) ListBox1.RemoveItem i End If Next i End Sub Private Sub CommandButton2_Click() Dim i As Long For i = 0 To ListBox1.ListCount - 1 ListBox2.AddItem ListBox1.List(i) ListBox1.RemoveItem i Next i End Sub Private Sub CommandButton3_Click() ListBox1.AddItem "toto1" ListBox1.AddItem "toto2" ListBox1.AddItem "toto3" ListBox1.AddItem "toto4" ListBox1.AddItem "toto5" ListBox1.AddItem "toto6" ListBox2.AddItem "toto7" ListBox2.AddItem "toto8" ListBox2.AddItem "toto9" ListBox2.AddItem "toto10" ListBox2.AddItem "toto11" ListBox2.AddItem "toto12" End Sub

Manu

Et ça marche sur VBA sous Access 2000 ?
parce que chez moi, AddItem n'est pas reconnue !
il est la mon problème !
merci quand même !

L'intuition est nécessaire, comme le vent elle lève la brume.