XL 2013 récuperation de données en multifichier.....

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