VBA - Variables tableau

Bonjour,

j'ai un souci dans un code VBA.
Je voudrais par l'intermediaire d'une variable tableau extraire l'année, le mois, et le jour pour chacune des lignes du tableau.

Regarde la pièce jointe Variable Tableau Dates.xlsm

Merci de votre aide

Option Explicit
Sub Avec_Variables_Tableau()
Dim MonTableau As Variant
Dim cmpt1 As Long
Dim cmpt2 As Long
MonTableau = Range("b2:b" & Range("A1048576").End(xlUp).Row).Value
For cmpt1 = LBound(MonTableau, 1) To UBound(MonTableau, 1)
For cmpt2 = LBound(MonTableau, 2) To UBound(MonTableau, 2)
Next cmpt2
Next cmpt1
Range("c2:c" & Range("A1048576").End(xlUp).Row).Value = MonTableau
End Sub