Format d'une text box

Bonjour,

je fais une sauvegarde de données d'un fichier à u autre en utilisant des text box dont la valeur est un lien vers une autre cellule...
Mon problème c 'une qu'un des liens sert à me donner la date d'aujourd'hui avec la formule =now()... mais avec la textbox m'a sauvegarde sur l'autre fichier ne marche pas, g juste un très long chiffre.
Pour la sauvegarde j'utilise cette macro:

ligne = 0
ligne_vide = False
Do While ligne_vide = False
ligne = ligne + 1
coord_cellule = "A" + Format(ligne)
If Worksheets("Temporary_file").Range(coord_cellule).Value = "" Then
ligne_vide = True
Worksheets("Temporary_file").Range(coord_cellule).Value = Worksheets("data").TextBox1.Value
End If
Loop

J'aimerai savoir s'il est possible de mettre un format sur les textbox pour que le renvoie de ma cellule vers l'autre fichier reste sur le format date.

Merci

Maud🙂