Bonsoir,
Si le temps passé à chercher des codes hasardeux pour le moins l'était à apprendre le langage VBA, ce serait nettement plus profitable...
Sub Regroupe()
Dim maitre As Workbook, nf, chemin$, n&
chemin = ThisWorkbook.Path & "\Tech\"
Set maitre = ActiveWorkbook
ActiveSheet.[A2].CurrentRegion.Offset(1, 0).Clear
nf = Dir(chemin & "*.xlsm")
With maitre.Sheets(1)
Do While nf <> ""
n = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Workbooks.Open chemin & nf
[A1].CurrentRegion.Offset(1, 0).Copy
.Cells(n, 1).PasteSpecial xlPasteValues
ActiveWorkbook.Close False
nf = Dir
Loop
End With
End Sub
Je n'ai fait qu'arranger un peu... (mais je ne dirais pas pour autant que tel qu'il est là ce code me satisfasse, même si ça doit fonctionner).
Cordialement.