Comment tranferer données d'une table excel vers une autre sans copier coller

bonjour
ok c'est nickel
par contre qu'est ce qu'il faut changer pour augmenter la plage de cellule ou changer de feuille de destination?
merci

Je me suis amusé à le faire sur ton classeur.
tout d'abord j'ai fait une copie que je nomme Destination ( a adapter)

dans le module1:

Option Explicit
Public classeurDestination As Workbook
Dim derlig As Long
'enregistrer
 Sub enregistrer()
Application.ScreenUpdating = False
derlig = ThisWorkbook.Sheets("feuille 1").Range("B" & Rows.Count).End(xlUp).Row 'adapter nom feuille et plage de cellule
    With Workbooks("Destination.xlsx").Sheets("feuille 1") 'adapter le nom du classeur et de la feuille
        .Range("B7:R" & derlig).ClearContents
        .Range("B7:R" & derlig).Value = ThisWorkbook.Sheets("feuille 1").Range("B7:R" & derlig).Value 'adapter nom feuille et plage de cellule
    End With
 Application.ScreenUpdating = True
End Sub

dans ThisWorkbook

Option Explicit
Private Sub Workbook_Open()
'ouvrir le classeur destination
Set classeurDestination = Application.Workbooks.Open(ThisWorkbook.Path & "\Destination.xlsx")'a adapter le nom du classeur
 ThisWorkbook.Sheets("feuille 1").Activate
End Sub

dans la feuille 1

Option Explicit
Private Sub CommandButton1_Click()
enregistrer
End Sub

Voilà tu sais tout!

@+ Le Pivert

merci
est-ce comme ça?
https://www.cjoint.com/c/JEAkMWtuk0r

C'est un classeur xlsx, cela ne prend pas en charge les macros. Tu dois avoir un message qui te l'indique lors de la fermeture!

Après avoir mis toutes les macros indiquées, Il faut donc enregistrer sous: classeur Excel prenant en charge les macros

Voilà c'est tout simple

@+ Le Pivert