Sub Deplace_Données()
'adapté de http://www.excel-downloads.com/forum/88943-excel-vba-copier-un-classeur.html
Dim Sh As Worksheet
Dim classeur2 As String
Dim classeur1 As String
classeur1 = ActiveWorkbook.Name 'ou = "test.xls"
classeur2 = "test1.xls" 'ActiveWorkbook.Name
Workbooks(classeur2).Activate
Workbooks(classeur2).Sheets("Feuil1").Range("M1:P1").Select
Workbooks(classeur1).Activate
Workbooks(classeur1).Sheets("Feuil1").Range("A1:D1").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks(classeur1).Activate
End Sub