Sub change_date(Optional x As Byte)
Dim lig As Integer
Application.ScreenUpdating = False
With Sheets("Planning")
lig = 2 + .Range("B3").Value - Sheets("Data").Range("A2").Value
Sheets("Data").Range("B" & lig & ":B" & lig + 30) = .Range("A3:A33").Value
Sheets("Data").Range("C" & lig & ":H" & lig + 30) = .Range("C3:H33").Value
.Range("B3") = DateSerial(.Range("D1").Value + 2014, .Range("F1").Value, 1)
lig = 2 + .Range("B3").Value - Sheets("Data").Range("A2").Value
.Range("A3:A33") = Sheets("Data").Range("B" & lig & ":B" & lig + 30).Value
.Range("C3:H33") = Sheets("Data").Range("C" & lig & ":H" & lig + 30).Value
'---------------------------------------------------------------------------
.Range("H3:H33").FormulaR1C1 = _
"=IF(RC[-1]="""","""",DATE(YEAR(RC[-6]),MONTH(RC[-6])+RC[-1],1))"
.Range("H3:H33").NumberFormat = "mmm yyyy"
'---------------------------------------------------------------------------
End With
End Sub