salut
compris comme andré, solution par formule personnalisée en VBA :
Public Function dateaextraire(cellule As Range) As Date
Dim annee%, mois As Byte, jour As Byte
annee = Left(cellule, 4)
mois = Mid(cellule, 5, 2)
jour = Right(cellule, 2)
dateaextraire = CDate(annee & '/' & mois & '/' & jour)
End Function
salut