Problème code copier coller

Bonjour

Voila je ne comprend pas pourquoi le code ne marche pas

je voudrais copier la feuille 4 de mon fichier excel sur mon fichier tdb mais il y a un pb au niveau de la ligne 5 (alors que le fichier et ouvert)

voici mon code

Sub coller()

Dim CS As Workbook 'déclare la variable CS (Classeur Source) DONC sinistre
Dim CD As Workbook 'déclare la variable CD (Classeur Destination) TBT

Set CS = ThisWorkbook 'définit le classeur source sinistre
Set CD = Workbooks("TDB") 'définit le classeur destination (il faut qu'il soit ouvert !)tbt

Dim OS1 As Worksheet 'déclare la variable OS1 (Onglet Source 1)sinistre
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)tbt

Set OS1 = CS.Worksheets("Feuil4") 'définit l'onglet source 1 OS1 sinistre
Set OD = CD.Sheets("TDB") 'définit l'onglet destination OD tbt

'OS1.Range("A1:G100").Copy OD.Range("C1:J1")
'OS2.Range("B2:B100").Copy OD.Range("C2:C100")
OS1.Range("B1:Q37").Copy OD.Range("AI1385:AX385")

End Sub

Bonjour,

Ya vraiment rien qui te choque !

[NB- si tu apprenais à écrire correctement le code, en respectant les règles de base, ce serait déjà un plus...]

mais sa marcher au debut apres quand j'ai changer les noms par le nom de mes fichiers sa marche plus

c'est quoi qui devrait me choquer s'il vous plais

Ta dernière ligne :

OS1.Range("B1:Q37").Copy OD.Range("AI1385:AX385")

merciii de votre réponse

finalement j'ai changé de méthode