Bonjour
Voici une macro pour faire le travail.
Elle peut être simplifiée
**********************************************
Private Sub CommandButton1_Click()
Dim i, j, dl As Long
Dim colonne1, nomfeuille1 As String
Sheets('feuil2').Range('B1').Value = TextBox1.Value
'************************
'effacer une zone
colonne1 = 'C'
nomfeuille1 = 'Feuil2'
dl = Sheets(nomfeuille1).Range(colonne1 & '65536').End(xlUp).Row
Sheets('Feuil2').Range('A4:C' & dl).ClearContents
'************************************************
colonne1 = 'A'
nomfeuille1 = 'Feuil1'
dl = Sheets(nomfeuille1).Range(colonne1 & '65536').End(xlUp).Row
' début
j = 4
' balayage de la feuille
For i = 2 To dl
If Sheets(nomfeuille1).Cells(i, 1) = Val(TextBox1.Value) Then
Sheets('feuil2').Cells(j, 1) = Sheets(nomfeuille1).Cells(i, 1)
Sheets('feuil2').Cells(j, 2) = Sheets(nomfeuille1).Cells(i, 2)
Sheets('feuil2').Cells(j, 3) = Sheets(nomfeuille1).Cells(i, 3)
j = j + 1
End If
Next i
End Sub