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