Bonjour ben et le forum,
Essaye ceci (à partir d'un bouton de commande) :
Private Sub CommandButton1_Click()
Dim iRow As Integer
For iRow = 0 To UserForm1.ListBox1.ListCount - 1
If UserForm1.ListBox1.Selected(iRow) = True Then
UserForm1.ListBox2.AddItem UserForm1.ListBox1.List(iRow)
UserForm1.ListBox1.Selected(iRow) = False
End If
Next iRow
End Sub
Slts
wally