J'avais trouvé cette solution mais merci quand même Pedro22 :)
Donc ça ne convient pas ? Il faudrait que le contenu de la cellule prenne ce format (et pas seulement la valeur affichée) ?
Si c'est bien ça, une possibilité avec un macro à placer dans le module de la feuille concernée. Elle s'exécute automatiquement lors de l'ajout/modification d'une valeur en colonne A.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
For Each Cel In Target
If Not Intersect(Range("A:A"), Cel) Is Nothing Then Cel.Value = Cel.Text
Next Cel
End Sub