Couper-coller d'une ligne en fonction d'une texbox

Private Sub CommandButton1_Click()
    Dim lig As Variant
    If Len(Trim(TextBox1.Text)) > 0 Then
        lig = Application.Match(TextBox1.Text, Sheet1.Columns(1), 0)
        If Not IsError(lig) Then
            With Sheet1
                .Range(.Cells(lig, 1), .Cells(lig, 1).End(xlToRight)).[B][COLOR=red]Copy[/COLOR][/B] _
                    Destination:=Sheet2.Cells(.Rows.Count, 1).End(xlUp).Offset(1)
               [COLOR=blue][B].Cells(lig, 1).EntireRow.Delete[/B][/COLOR]
            End With
        End If
    End If
End Sub

Option Explicit
Private Sub UserForm_Initialize()
With Sheets("sheet1"): ComboBox1.List = Range(.[A2], .[a65536].End(xlUp)).Value: End With
End Sub
Private Sub CommandButton1_Click()
With Sheets("Sheet1")
Cut.Rows (ComboBox1.ListIndex)
End With
'ect...
Unload Me: UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Range("a2", Cells(Rows.Count, "a").End(xlUp)).Value
End Sub
Private Sub CommandButton1_Click()
Rows((ComboBox1.ListIndex) + 2).Cut Destination:=Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)(2)
[a2:a65000].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Unload Me: UserForm1.Show
End Sub