VBA et dates

Bonjour,

Je suis en train de faire un programme VBA pour créer automatiquement un planning hebdomadaire dans lequel les dates sont inscrites automatiquement dans les cellules L3 à P3.
Voici le programme que j'ai récupérer d'internet et que j'ai remanié à ma sauce :

"Option Explicit

Sub creer_annee()

Dim cptr As Byte
Dim jour As Byte
Const annee As Integer = 2018

Application.ScreenUpdating = False

    For cptr = 2 To 53
        Sheets(1).Copy after:=Sheets(cptr - 1)
    With Sheets(cptr)
        .Name = "S" & cptr - 1
        
.Cells(3, 12) = 5 * (cptr - 1) + DateSerial(annee, 1, 1) - Weekday(DateSerial(annee, 1, 1)) - 3

    For jour = 12 To 16
        .Cells(3, jour) = .Cells(3, jour - 1) + 1
    Next

End With

Next

End Sub"

Mon problème est le suivant, les dates affichés dans les cellules L3 à P3 de la feuille S1 sont datées 1900... soit 118 ans trop tôt...

Une idée, un conseil ?

Cordialement.

T_Geb