Sub TEST()
Application.ScreenUpdating = False
Dim Fich As String, chemin As String
chemin = "C:\XXXX\TEST MACRO MULTIPLE\A APPLIQUER\"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open chemin & Fich
ThisWorkbook.Sheets("Feuil1").Range("A1:A30").Copy
Workbooks(Fich).Activate
ActiveWorkbook.Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste
Workbooks(Fich).Close True
Fich = Dir
Loop
Application.ScreenUpdating = True
End Sub