Aggregation fichiers Excel

Bonjour,

Je suis débutant sur VBA.

J'ai plusieurs fichiers formatés de la même manière (deux nombres dans la première colonne) 1.xlsx, 2.xslx 3.xlsx...

Je souhaiterais les mettre dans un fichier commun DASHBOARD, les uns après les autres.

Grande victoire, j'ai réussi a le faire avec deux fichiers, mais pas de façon 100 % automatisé:

Sub agg()

  Set maitre = ActiveWorkbook
  Repertoire = ThisWorkbook.Path

 nf = Dir(Repertoire & "\*.xls")  ' premier fichier
      Workbooks.Open Filename:=Repertoire & "\" & nf

    Sheets("Sheet1").Select
    Range("A1:A3").Copy

      ActiveWorkbook.Close False
      Sheets("Sheet1").Select
    Range("A1:A3").Select
    ActiveSheet.Paste

Workbooks.Open Filename:=Repertoire & "\" & "2.xlsx"

    Sheets("Sheet1").Select
    Range("A1:A3").Copy
       ActiveWorkbook.Close False
      Sheets("Sheet1").Select
    Range("b1:b3").Select
    ActiveSheet.Paste

End Sub

Si vous pouviez m'aider à faire une boucle du style TANT QUE, qui décale correctement les colonnes à chaque fois

Et encore mieux si vous connaissez un moyen pour que je puisse nommer mes fichiers autrement que 1.xlsx, 2.xslx 3.xlsx et que ça les trouve automatiquement dans le répertoire ( autrement dit sans avoir à écrire le nom dans le code)

Merci d'avance à la communauté

Bonsoir,

Ci-joint une proposition à tester.

(placer tous les fichiers dans un même répertoire, et sélectionner ce répertoire)

Bonne soirée

Bouben