Access Alimenter une table avec les jours de l'année

Public Sub GenerationDate()

    'Déclaration
    Dim rst As DAO.Recordset
    Dim strSql As String
    Dim i As Integer
    Dim dteDateDepart As Date
   
    'Affectation
    strSql = "SELECT LaDate FROM JoursAnnees"
    Set rst = CurrentDb.OpenRecordset(strSql)
    dteDateDepart = #1/1/2020#
   
    ' Incrémentation
    For i = 0 To 365
        rst.AddNew
            rst("LaDate") = DateAdd("d", i, dteDateDepart)
        rst.Update
    Next i
   
    MsgBox "Terminé"
   

   
End Sub