Application.CutCopyMode = True
Application.Goto Reference:='Selection_donnees'
Selection.ClearContents
Workbooks.Open ('H:\\mes documents\\access\\Donnees.xls')
Application.Goto Reference:='selection'
Selection.Copy
Windows('pilotage ilot1.xls').Activate
Range('C5').Select
ActiveSheet.Paste
Application.CutCopyMode = False