Sub Importer()
Dim nf As String
Dim strPath As String
Dim synthese As Workbook
Dim wbkSource As Workbook
Dim wksSource As Worksheet
strPath = ActiveWorkbook.Path
Set synthese = ActiveWorkbook
nf = Dir(strPath & "\*.xlsm")
Application.EnableEvents = False
Do While nf <> ""
If nf <> synthese.Name Then
Set wbkSource = Workbooks.Open(Filename:=strPath & "\" & nf)
For Each wksSource In wbkSource.Worksheets
wksSource.Copy After:=synthese.Sheets(synthese.Sheets.Count)
Next wksSource
wbkSource.Close False
End If
nf = Dir
Loop
Application.EnableEvents = True
End Sub