XL 2016 changement années sur fichier VBA

Sub Creation()
Dim NbJ As Long
Dim i As Byte
Dim Mois, LaDate
Call Efface
Mois = InputBox("Saisir numéro du mois (1 à 12)")
LaDate = DateValue("1/" & Mois & "/" & 2017)
NbJ = Day(DateAdd("d", -1, DateAdd("m", 1, DateSerial(2017, Mois, 1))))
Application.ScreenUpdating = 0
For i = 1 To NbJ
Sheets("Modèle").Copy After:=Sheets(i)
    ActiveSheet.Name = Format(DateValue(i & "/" & Format(LaDate, "mm/yy")), "dd_mm_yyyy")
    ActiveSheet.Range("A1") = Format(DateValue(i & "/" & Format(LaDate, "mm/yy")), "dddd dd mmmm yyyy")
    ActiveSheet.Shapes("Logo_Code").Delete
Next i
Sheets("Modèle").Activate
End Sub