Sub Macro1()
Dim PL As Range 'déclare la variable PL (PLage)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Object 'déclare la variable OD (Onglet Destination)
Set PL = Workbooks("IRL.xls").Sheets("Jan").Range("P10:R17") 'définit la plage PL
Set CD = Workbooks("VENTES LOCALES.xlsm") 'définit la classeur destination CD
Set OD = CD.Sheets("IRL") 'définit l'onglet destination OD
PL.Copy 'copie la plage PL
'collage spécial dans la cellule K61 de l'onget OD
OD.Range("K61").Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Set OD = CD.Sheets("ARM") 'redéfinit l'onglet OD
PL.Copy 'colle la plage
'collage spécial dans la cellule K61 de l'onget OD
OD.Range("K61").Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub