Option Explicit
Private Sub UserForm_Initialize()
'Pas necessaire de passer par une variable tableau
ComboBox2.List = Array("", "OUI", "NON")
End Sub
Private Sub CommandButton1_Click()
Dim NewLine As Long
CommandButton1.Caption = "VALIDATION"
CommandButton1.Default = True
With Sheets("Feuil1")
'Prochaine ligne disponible
NewLine = .Range("A" & .Rows.Count).End(xlUp)(2).Row
.Cells(NewLine, 1) = TextBox1
.Cells(NewLine, 8) = ComboBox2.Value
End With
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub