Sub Nouveauratio()
'
' Nouveauratio Macro
'

'
    Sheets("JUIN 2016").Select
    Sheets("JUIN 2016").Copy Before:=Sheets(13)
    ActiveCell.FormulaR1C1 = "Jun-2016"
    Sheets("JUIN 2016 (2)").Select
    Sheets("JUIN 2016 (2)").Name = "Juillet 2016"
    ActiveCell.Offset(4, 1).Range("A1:C1").Select
    Selection.ClearContents
    ActiveCell.Offset(0, 4).Range("A1:G1").Select
    Selection.ClearContents
    ActiveCell.Offset(1, -4).Range("A1:C1").Select
    Selection.ClearContents
    ActiveCell.Offset(0, 4).Range("A1:F1").Select
    Selection.ClearContents
    ActiveCell.Offset(4, -4).Range("A1:B1").Select
    Selection.ClearContents
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.ClearContents
    ActiveCell.Offset(1, 0).Range("A1:C1").Select
    Selection.ClearContents
    ActiveCell.Offset(0, 4).Range("A1:G1").Select
    Selection.ClearContents
    ActiveCell.Offset(-3, -4).Range("A1:C1").Select
    Selection.ClearContents
    ActiveCell.Offset(0, 4).Range("A1:G1").Select
    Selection.ClearContents
    ActiveCell.Offset(6, -4).Range("A1:C1").Select
    Selection.ClearContents
    ActiveCell.Offset(0, 4).Range("A1:G1").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=6
    ActiveCell.Offset(12, -4).Range("A1:B1").Select
    Selection.ClearContents
    ActiveCell.Offset(6, 0).Range("A1:B1").Select
    Selection.ClearContents
    ActiveCell.Offset(-6, 4).Range("A1:G1").Select
    Selection.ClearContents
    ActiveCell.Offset(1, 5).Range("A1").Select
    Selection.ClearContents
    ActiveCell.Offset(2, -4).Range("A1:F1").Select
    Selection.ClearContents
    ActiveCell.Offset(3, 1).Range("A1:E1").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-6
    ActiveCell.Offset(-29, -6).Range("A1").Select
    ActiveCell.FormulaR1C1 = "='JUIN 2016'!R[5]C"
    ActiveCell.Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:C1"), Type:= _
        xlFillValues
    ActiveCell.Range("A1:C1").Select
    ActiveCell.Offset(0, 4).Range("A1").Select
    ActiveCell.FormulaR1C1 = "='JUIN 2016'!R[5]C"
    ActiveCell.Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:G1"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:G1").Select
    ActiveCell.Offset(5, -1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=RC[-3]+RC[-2]"
    ActiveCell.Offset(3, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=+RC[-3]+RC[-2]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveWindow.SmallScroll Down:=3
    ActiveCell.Offset(13, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=+'JUIN 2016'!R[4]C"
    ActiveCell.Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:G1"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:G1").Select
    ActiveWindow.SmallScroll Down:=-3
End Sub