Re : copie plage de données d'un classeur à un autre
voila via l'enregistreur
Sub Macro1()
'
' Macro1 Macro
'
Range("A1:C276").Select
selection.copy ' du classeur stats_globals
Windows("statana.xlsx").Activate
Range("E473").Select
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A473").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Ville1"
Range("A474").Select
ActiveCell.FormulaR1C1 = "Ville1"
Range("B473").Select
ActiveCell.FormulaR1C1 = "2014"
Range("B474").Select
ActiveCell.FormulaR1C1 = "2014"
Range("C473").Select
ActiveCell.FormulaR1C1 = "Juillet"
Range("C474").Select
ActiveCell.FormulaR1C1 = "Juillet"
Range("D471
472").Select
selection.AutoFill Destination:=Range("D471
474"), Type:=xlFillDefault
Range("D471
474").Select
Range("A473
474").Select
selection.AutoFill Destination:=Range("A473
748")
Range("A473
748").Select
ActiveWindow.SmallScroll Down:=21
End Sub