Option Explicit
Sub Recherche()
Dim i As Integer
For i = 1 To Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
If Range("A1") Like Feuil1.Cells(i, 1) Then
Cells(1, 1) = Feuil1.Cells(i, 1)
Cells(2, 1) = Feuil1.Cells(i, 2)
Cells(3, 1) = Feuil1.Cells(i, 3)
End If
Next i
End Sub