Private Sub ComboBox1_Click()
TextBox1 = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub
Private Sub CommandButton1_Click()
Feuil2.Cells(ComboBox1.ListIndex + 1, 2) = TextBox1.Value
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Feuil2.Range("a1", Feuil2.Cells(Rows.Count, "b").End(xlUp)).Value
End Sub