bonjour à tous

je cherche à optimiser un code en évitant le "select'

ci dessous un code pour copier coller d'un fichier à un autre que je veux optimiser


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
    Windows("COMMANDE.xlsm").Activate
    Sheets("prepa commande").Select
    Range("c1:c200").Select
    Selection.Copy
 
    Windows("caisse.xlsm").Activate
    Sheets("operation de tresorerie").Select
    Range("i65536").End(xlUp).Select 
    ActiveCell.Offset(1, 0).Select 
    ActiveSheet.Paste
j'ai essayer ceci mais sans succès :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
 Workbooks("COMMANDE.xlsm").Sheets("prepa commande").Range("c1:c200").Copy Destination:=Workbooks("caisse.xlsm").Sheets("operation de tresorerie").Range("i65536").End(xlUp).ActiveCell.Offset(1, 0)
merci pour votre aide