Sub Macro5()
'
' Macro5 Macro
' Macro enregistrée le 22/06/2011 par Guy
'
'
Windows("Copie de Etape 2 - 2010 corrections.xls").Activate
Range("ES32,ET32,EV32").Select
Range("EV32").Activate
Selection.Copy
Windows("Fiches et Comparatifs Services 2009-2010.xls").Activate
Range("M10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Copie de Etape 2 - 2010 corrections.xls").Activate
Range("ES79,ET79,EV79").Select
Range("EV79").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Fiches et Comparatifs Services 2009-2010.xls").Activate
Range("M11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Copie de Etape 2 - 2010 corrections.xls").Activate
Range("ES94,ET94,EV94").Select
Range("EV94").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Fiches et Comparatifs Services 2009-2010.xls").Activate
Range("M12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Copie de Etape 2 - 2010 corrections.xls").Activate
Range("ES103,ET103,EV103").Select
Range("EV103").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Fiches et Comparatifs Services 2009-2010.xls").Activate
Range("M13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Copie de Etape 2 - 2010 corrections.xls").Activate
Range("ES95,ET95,EV95").Select
Range("EV95").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Fiches et Comparatifs Services 2009-2010.xls").Activate
Range("M14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P10").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
Selection.AutoFill Destination:=Range("P10:P14"), Type:=xlFillDefault
Range("P10:P14").Select
Range("P10").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-3
ActiveWindow.WindowState = xlMaximized
Range("B10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P11").Select
Application.CutCopyMode = False
Selection.Copy
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P12:P14").Select
Application.CutCopyMode = False
Selection.Copy
Range("B14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub