Private Sub CommandButton1_Click()
Dim Lig As Long
If Me.ComboBox2 = "" Then Exit Sub
With Sheets("Sheet1")
Lig = .Columns(1).Find(Me.ComboBox2).Row
.Cells(Lig, 2).Value = Me.TextBox1.Value
.Cells(Lig, 3).Value = Me.ComboBox1
.Cells(Lig, 4).Value = Me.CheckBox1
End With
End Sub
Private Sub UserForm_Initialize()
Dim Cel As Range
With Sheets("Sheet1")
For Each Cel In .Range("A2:A" & .[A65000].End(xlUp).Row)
Me.ComboBox2.AddItem Cel.Value
Next Cel
End With
End Sub