Bonjour,
Une possibilité sous forme de fonction personnalisée :
Function CONVERTDATE(dnum As Long) As Date
Application.Volatile
CONVERTDATE = DateSerial(Left(dnum, 4), Mid(dnum, 5, 2), Right(dnum, 2))
End Function
La cellule dans laquelle tu taperas la fonction doit être mise en format date.
NB- On présuppose que tu n'as que des nombres à 8 chiffres (et qu'il s'agit bien de nombres), dans le cas contraire il faudrait faire effectuer à la fonction une batterie de tests avant de fournir la réponse...)
Cordialement.