Re-,
Dans l'USF "ESTOCK", la date est insérée via cette ligne de code :
...
Sheets("Hist").Range("B" & derniere_hist) = CDate(DENTREE.Caption)
...
Et dans l'USF "SOSTOCK", le code est :
...
Sheets("Hist").Range("B" & derniere_hist) = DSORTIE.Caption
...
Il suffit donc de mettre la même conversion, comme ceci:
Sheets("Hist").Range("B" & derniere_hist) = CDate(DSORTIE.Caption)
Et, je pense, que ce devrait être bon