Eh eh, merci à toi TI, mais j'ai apparemment résolu mon pb tout seul comme un grand !
Je ne sais pas si le code est bien élégant, mais ça tourne :
Sub recap()
Application.ScreenUpdating = False
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("L:\")
Set fc = f.Files
i = 2
For Each f1 In fc
s = f1.Name
Workbooks.Open Filename:="L:\" & s
Range("BD1:BD44").Select
Range("BD44").Activate
Selection.Copy
Windows("recap2.xls").Activate
Range("A" & i).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=True
i = i + 1
Windows(s).Activate
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
Qu'en penses-tu ?