Sub FusionFichiers()
Dim Classeur As String
Dim Chemin As String
Dim Onglet As Worksheet
Dim LigneFin As Long, LigneFinACopier As Long, LigneFinCopie 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 est Feuil1 : A adapter
If Onglet.Name = "Feuil1" Then
LigneFinACopier = Onglet.Range("A" & Rows.Count).End(xlUp).Row
LigneFinCopie = ThisWorkbook.Sheets("Synthese").Range("A" & Rows.Count).End(xlUp).Row+1
Onglet.Range("A1:H" & LigneFinACopier).Copy Destination:=ThisWorkbook.Sheets("Synthese").Range("A" & lignefincopie)
exit for
End If
Next
Workbooks(Classeur).Close False
Application.EnableEvents = True
End If
Classeur = Dir
Loop Until Classeur = ""
End Sub