Codes VBA pour fusionner deux fichiers Excel

Bonjour chers tous

Merci d'avance pour votre aide

J'ai deux fichiers comportant des tableaux de meme format. je veux fusionner les donnees de ces fichiers dans un troisieme tableau par ordre chronologique denregistrement dans les fichiers sources . et ajotuer une colonne pourle nom de la feuille source.

Ci joint les fichiers , merci pour votre aide

Bonjour,

avec le fichier de consolidation nommé "consolidation.xlsm" et les fichiers à consolider commençant par "TAB" et le tout dans un même répertoire, ceci fonctionne

P.

Option Explicit
Sub ConsolideClasseurs()
Application.ScreenUpdating = False
Dim Cpt, Nf, Nb
Dim ClasseurMaitre
Dim Desti
ChDir ActiveWorkbook.Path
Set ClasseurMaitre = ActiveWorkbook
Set Desti = Feuil1.[A65000].End(xlUp)
Cpt = 1
Nf = Dir("tab*.xlsx")
Do While Nf <> ""
   If Nf <> ClasseurMaitre.Name Then
      Set Desti = [A65000].End(xlUp)
      Workbooks.Open Filename:=Nf
      Sheets(1).[A7].CurrentRegion.Select
      Range("A7").CurrentRegion.Offset(1).Resize(Range("A7").CurrentRegion.Rows.Count - 1, 17).Select
      Nb = Selection.Rows.Count: Debug.Print Nb
      Selection.Copy Destination:=Desti(2)
      Desti.Offset(1, 17).Value = Nf
      Cpt = Cpt + 1
      Workbooks(Nf).Close False
      Range(Desti.Offset(1, 17), Desti.Offset(Nb, 17)).Select
      Selection.Value = Nf
   End If
   Nf = Dir
Loop
[A1].Select
End Sub

Bonjour à tous

Une variante, avec les 3 fichiers ouverts au départ.

Bye !

MERCI Patrick et Gmb pour vos différents réponse .

Gmb est il possible de le faire avec les fichiers sources fermés au depart??????

Merci d'avance

Bonjour à tous ...

Une autre contribution ...

Comme Patrick avait postée sa réponse, je ne m'étais plus manifesté, d'autant que son code est mieux écrit que le mien qui date de mes débuts en VBA !