Private Sub CommandButton1_Click()
Dim L As Long, NomClass As String
Const SousDoss = "..."
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path & "\" & SousDoss
L = 0
NomClass = Dir("*.xls")
While NomClass <> ""
Workbooks.Open NomClass
L = L + 1
Feuil1.[A5:E5].Offset(L).Value = ActiveWorkbook.Worksheets(1).[A6:E6].Value
ActiveWorkbook.Close
NomClass = Dir: Wend
End Sub