Consolide WorkBooks of one directory

http://cjoint.com/?ffwaa2fy1C

Sub synt=E8seClasseursBD()
[A2].CurrentRegion.Offset(1, 0).Resize().Clear
[A2].Select
fenetre =3D ActiveWorkbook.Name
ChDir ActiveWorkbook.Path ' Directory of actuel workbook
nf =3D Dir("*.xls") ' First file in the directory
Do While nf <> ""
Workbooks.Open Filename:=3Dnf
Windows(fenetre).Activate
Workbooks(nf).ActiveSheet.[A1].CurrentRegion.Offset(1,
0).Resize().Copy ActiveCell
Workbooks(nf).Close False
[A1].End(xlDown).Offset(1, 0).Select
nf =3D Dir ' Next file
If nf =3D ActiveWorkbook.Name Then nf =3D Dir
Loop
End Sub

Cordialy JB