macro: importation de la derniere ligne

Sub Macro1()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim dest As Range 'déclara la variable dest (la cellule de DESTination de la copie)
For x = 1 To 10 'tu adapteras (je considère que le tableau A est sur les 10 premièrs onglets de ton classeur)
    dl = Sheets(x).Range("A6536").End(xlUp).Row 'définit la variable dl
    Set dest = Sheets("Feuil11").Range("A65536").End(xlUp).Offset(1, 0) 'definit la variable dest (tu adaptera le nom de l'onglet)
 
    With Sheets(x) 'prend en compte l'onglet x
        .Range(.Cells(dl, 1), .Cells(dl, 12)).Copy Destination:=dest 'la aussi tu adapteras (je considère que le tableau est sur les colonne A à L (1 à 12))
    End With 'fin de la prise en compte de l'onglet x
Next x 'prochain onglet du tableau A
End Sub

Sub Macro1()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim dc As Integer 'déclare la variable dc (Dernière Colonne)
Dim dest As Range 'déclara la variable dest (la cellule de DESTination de la copie)
Dim Ex As Workbook 'déclara la variable Ex (le fichier de destination de la copie)
For x = 1 To 3 'tu adapteras (je considère que le tableau A est sur les 3 premièrs onglets de ton classeur)
    dl = Sheets(x).Range("A6536").End(xlUp).Row 'définit la variable dl
    dc = Sheets(x).Range("IV1").End(xlToLeft).Column 'définit la variable dc
    'Workbooks("ton_fichier.xls").Activate
    Set Ex = Workbooks("ton_fichier.xls") 'définit la variable Ex (classeur Cible)
    Set dest = Ex.Sheets("syntese").Range("A65536").End(xlUp).Offset(1, 0) 'definit la variable dest (tu adaptera le nom de l'onglet)
    With Sheets(x) 'prend en compte l'onglet x
        .Range(.Cells(dl, 1), .Cells(dl, dc)).Copy Destination:=dest
    End With 'fin de la prise en compte de l'onglet x
Next x 'prochain onglet du tableau A
End Sub