Sub TEST2()
Dim Fich As String, chemin As String, L As Long
Const chemin = "C:\XXXX\TEST MACRO MULTIPLE\A APPLIQUER\"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open chemin & Fich
With ActiveWorkbook.Sheets("Feuil1")
For L = 1 To 30
.Cells(L, 1).FormulaR1C1 = Feuil1.Cells(L, 1).FormulaR1C1
Next L
End With
Workbooks(Fich).Close True
Fich = Dir
Loop
End Sub