Const ADRCELL As String = "$E$3"
Private Sub CommandButton1_Click()
Dim ws As Worksheet, ligs&
For Each ws In Worksheets
If Not ws.Name Like "Regroup*" Then
If ws.Range(TextBox1.Text) = TextBox2.Text Then
ligs = ws.Cells(Rows.Count, 1).End(xlUp).Row
ws.Range("A1").Resize(ligs, 5).Copy _
Sheets("Regroup1").Cells(Rows.Count, 1).End(xlUp)(2)
End If
End If
Next ws
UserForm1.Hide
End Sub