Sub datejourmois()
Dim a, i
a = [A1].CurrentRegion.Value
Cells(1, 5) = "Année": Cells(1, 6) = "Mois": Cells(1, 7) = "Jour"
For i = 2 To UBound(a)
myear = Mid(a(i, 2), 7, 4): Cells(i, 5) = myear
mmonth = Mid(a(i, 2), 4, 2): Cells(i, 6) = mmonth
mday = Left(a(i, 2), 2): Cells(i, 7) = mday
Next
End Sub