Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = -1 Then ComboBox1 = "": Exit Sub
[Tableau1].Resize([Tableau1].Rows.Count + 1).Columns(Application.Match(ComboBox1, [Tableau1].Rows(0), 0)).Find("", , xlValues, xlWhole) = TextBox1
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Application.Transpose([Tableau1].Rows(0))
End Sub