Sub Macro1()
Dim rng As Range, pFile$, nFile$, aFile$
Dim wb As Workbook, ws As Worksheet
Set rng = Range("A1:M8")
pFile = ActiveWorkbook.Path & "\" 'adapter ici le chemin vers le répertoire
aFile = ActiveWorkbook.Name
nFile = Dir(pFile & "*.xls")
Do Until nFile = ""
If nFile <> aFile Then
Set wb = Workbooks.Open(nFile)
With wb
Set ws = wb.Sheets(1)
With ws
.Rows("1:8").Insert Shift:=xlDown
rng.Copy .Range("A1")
End With
.Close True
End With
End If
nFile = Dir
Loop
End Sub