erreur d'exécution 9 sur une macro qui copie des donnée d'un fichier à un autre

Bonjour,

j'espère trouver de l'aide pour cette macro.


je voudrai copier Ce cellules D, E, F, H, K du fichier STOCK MOAd classeur STOCK_MOAD à un autre fichier Doc travail classeur MOAD.

voilà la macro:

Sub Import_MOAD()


Workbooks.Open Filename:="C:\HYPERVISION\HYPERVISION\Exports\STOCK MOAD.xls"
Range("H:H,D😀,E:E,F:F,K:K").Copy
Windows("Doc.travail.xls").Activate
Sheets("MOAD").Select
Range("A1").Select
ActiveSheet.Paste
Windows("STOCK MOAD.xls").Activate
Range("A:A,B:B,C:C,D😀,E:E").Copy
Windows("Doc.travail.xls").Activate
Sheets("STOCK_MOAD").Select
Range("A1").Select
ActiveSheet.Paste
Windows("STOCK MOAD.xls").Close
Sheets("MOAD").Select

End Sub

à chaque fois que j'exécute la macro, elle fonctionne mais il y a tjrs l'erreur d'exécution 9 qui s'affiche.

y a t-il quelq'un pour m'aider à corriger cette anomalie.

MErci infiniment