extraire chiffre d'une date de naissance en vba

Private Sub CommandButton1_Click()
[E10] = Left([A1], 1)
[F10] = Mid([A1], 2, 1)
[G10] = Mid([A1], 4, 1)
[H10] = Mid([A1], 5, 1)
End Sub

[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
[COLOR=blue]Dim[/COLOR] Carac(), Cols()
Carac = Array(1, 2, 4, 5): Cols = Array(5, 6, 7, 8)
[COLOR=blue]For[/COLOR] i = [COLOR=blue]LBound[/COLOR](Carac) [COLOR=blue]To UBound[/COLOR](Carac)
    Cells(10, Cols(i)) = Mid(Cells(1, 1), Carac(i), 1)
[COLOR=blue]Next[/COLOR] i
[COLOR=blue]End Sub[/COLOR]