Sub recherche()
Dim wb As Workbook, chemin$, fichier$, quoi
quoi = Feuil1.Cells(1, 1)
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.xls*")
While Len(fichier) > 0
If Not fichier = ThisWorkbook.Name Then
Set wb = Workbooks.Open(chemin & fichier)
Set trouve = wb.Sheets(1).Cells.Find(quoi, lookat:=xlWhole)
If Not trouve Is Nothing Then
If wb.Sheets(1).Cells(1, trouve.Column) = "EAN" Then
wb.Sheets(1).Rows(trouve.Row).EntireRow.Copy ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(3)(2)
End If
End If
wb.Close
End If
fichier = Dir()
Wend
Set wb = Nothing
Set trouve = Nothing
End Sub