Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A2:F2").Select
    Selection.Copy
    Sheets("HISTO").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=31/8/2016"
    Range("A2").Select
    Selection.NumberFormat = "m/d/yyyy"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "8/31/2016"
    Range("A3").Select
End Sub