re-bonjour Pedro22
votre solution est presque la bonne pour moi, mais j'avoues que je serais bien tenté par votre solution VBA
Cordialement.
A placer dans le module de la feuille en question (pas un module standard !) :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then 'Colonne "A:A" à adapter si besoin
If Target.Value Like "####" Then Target.Value = DateSerial(Target.Value, 1, 1)
End If
End Sub
PS : la colonne A doit être au format date.