[COLOR=black]Private Sub CommandButton1_Click() [/COLOR]
[COLOR=black]Dim col As Integer [/COLOR]
[COLOR=black]col = ComboBox1.ListIndex + 2 [/COLOR]
[COLOR=black]Sheets("Datas").Cells(Sheets("Datas").Cells(65535, col).End(xlUp).Row + 1, col) = TextBox1 [/COLOR]
[COLOR=black]Unload Me [/COLOR]
[COLOR=black]End Sub [/COLOR]
[COLOR=#0000cc][/COLOR]