Sub FusionFichiers()
Dim Classeur As String
Dim Chemin As String
Dim Onglet As Worksheet
Dim LigneFin As Long, LigneFinACopier As Long
'Exemple : Chemin à adapter
Chemin = "C:\Test_Fusion_Classeurs\"
'Si uniquement des fichiers xls ou xslx , modifier l'extension en conséquence
Classeur = Dir(Chemin & "*.xls")
If Classeur = "" Then MsgBox " Le répertoire " & Chemin & " est vide ou inexistant": Exit Sub
Do
If Classeur <> "" Then
Application.EnableEvents = False
Workbooks.Open Chemin & Classeur
For Each Onglet In Workbooks(Classeur).Worksheets
'Ne traite que les onglets dont le nom ne commence pas par Feuil
If Left(Onglet.Name, 5) <> "Feuil" Then
'Ajout de la création de l'onglet
ThisWorkbook.Worksheets.Add
ThisWorkbook.ActiveSheet.Name = Onglet.Name
LigneFinACopier = Onglet.Range("A" & Rows.Count).End(xlUp).Row
Onglet.Range("A1:H" & LigneFinACopier).Copy Destination:=ThisWorkbook.Sheets(Onglet.Name).Range("A1")
End If
Next
Workbooks(Classeur).Close False
Application.EnableEvents = True
End If
Classeur = Dir
Loop Until Classeur = ""
End Sub