Sub Macro1()
'
'
Workbooks.Add
Windows("Classeur1").Activate
Cells.Select
Selection.Copy
Windows("Classeur2").Activate
Cells.Select
ActiveSheet.Paste
Range("A7").Select
Sheets("Feuil2").Select
Windows("Classeur1").Activate
Application.CutCopyMode = False
Range("A8").Select
Sheets("Demande").Select
Cells.Select
Selection.Copy
Windows("Classeur2").Activate
Cells.Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Feuil3").Select
Windows("Classeur1").Activate
Application.CutCopyMode = False
Range("A1").Select
Sheets("Récap").Select
Cells.Select
Selection.Copy
Windows("Classeur2").Activate
Cells.Select
ActiveSheet.Paste
Range("A1").Select
Windows("Classeur1").Activate
Application.CutCopyMode = False
Range("A1").Select
Windows("Classeur2").Activate
ActiveWorkbook.Colors = Workbooks("Classeur1").Colors
Sheets("Feuil1").Select
Windows("Classeur2").Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub