Sub Macro1()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Set CS = ThisWorkbook 'définit la classeur source CS
Set OS = CS.Worksheets("Feuil1") 'définit l'onglet source OS (à adapter à ton cas)
Workbooks.Open Filename:="D:\Mon Dossier\Racine\TDB.xlsm" 'ouvre le classeur TDB.xlsm
Set CD = ActiveWorkbook 'définit la classeur destination
Set OD = CD.Worksheets("CDT") 'définit l'onglet destination OD
Set DEST = OD.Cells(Application.Rows.Count, "B").End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
OS.Range("A1:H10").Copy DEST 'copie la plage A1:H10 de l'onglet source et la colle dans la cellule de destination DEST
End Sub