Sub Macro1()
Dim CA As String 'déclare la variabe CA (Chemin d'Accès)
Dim CS As Workbook 'déclare la variabe CS (Classeur Source)
Dim OS As Worksheet 'déclare la variabe OS (Onglet Source)
Dim CD As Workbook 'déclare la variabe CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variabe OD (Onglet Destination)
Dim F As String 'déclare la variabe F (Fichier)
CA = "C:\Users\Anis\Documents\ETC\" 'à adapter à ton cas, c'est le chemin d'accès des fichiers...
Set CS = ThisWorkbook 'définit la classeur source CS
Set OS = CS.Worksheets("Données") 'définit l'onglet source OS
F = Dir(CA) 'définit le premier fichier du dossier du chemin d'accès
Do While F <> "" 'boucle tant qu'il esxiste des fichiers
Set CD = Workbooks.Open(CA & F) 'définit le classeur destination CD (en l'ouvrant)
Set OD = CD.Worksheets("Données") 'définit l'onglet destination OD
OS.Range("A1:M29").Copy OD.Range("A1") 'copie la plage A1:M29 de l'onglet source et la colle dans A1 de l'onglet destination
CD.Close True 'ferne le classeur en enregistrant les changements
F = Dir 'définit le prochain fichier du dossier du chemin d'accès
Loop 'boucle
End Sub