Problème de transfert d'un tableau (VBA) vers la feuille

Sub Tartampion() 'dates d'inventaires
Dim dv As Byte, an As Integer, t(), i As Byte, titre As String

dv = [ColonneAL].Rows(4)
an = Year([ColonneAL].Rows(6))
titre = [Date_Inventaire]

ReDim t(dv + 1)

'********** Chargement du tableau **********
For i = 1 To UBound(t)
    t(i) = CDate("12/1/" & an - 1 + i)
    Debug.Print t(i)
Next
'*******************************************

[Date_Inventaire].Resize(UBound(t) + 1, 1) = Application.Transpose(t)
[Date_Inventaire] = titre
End Sub

ReDim t(1 To dv + 1) 'base 1
'----
[Date_Inventaire].Offset(1).Resize(UBound(t)) = Application.Transpose(t)

Sub Tartampion() 'dates d'inventaires
Dim dv As Byte, an As Integer, t(), i As Byte

dv = [ColonneAL].Rows(4)
an = Year([ColonneAL].Rows(6))

ReDim t(1 To dv + 1) 'base 1

'********** Chargement du tableau **********
For i = 1 To UBound(t)
    t(i) = CDate("12/1/" & an - 1 + i)
Next
'*******************************************

[Date_Inventaire].Offset(1).Resize(UBound(t)) = Application.Transpose(t)
End Sub