Private Sub UserForm_Activate()
With Me.ListBox1
ListBox1.AddItem "Domaine Alexis Rouge"
ListBox1.AddItem "Domaine du Grand Crès Blanc"
ListBox1.AddItem "Domaine du Grand Crès Muscat"
ListBox1.AddItem "Domaine du Grand Crès Rosé"
ListBox1.AddItem "Domaine du Grand Crès Rouge"
End With
End Sub
Private Sub cmdAjout_Click()
With Me.ListBox2
ListBox2.AddItem Me.ListBox1.Value
End With
End Sub