Voilà une fonction qui fait ça :
la valeur renvoyée est au format texte, il serait simple de la mettre au format numérique en convertissant cette valeur avec la fonction Val
Function DateCodee$(DateRef As Date)
'Ti
DateCodee = Year(DateRef) Mod 1000 & _
DateDiff("d", DateSerial(Year(DateRef), 1, 1), DateRef) + 1
End Function
Sub Test()
Dim D As Date
D = Now
MsgBox DateCodee(D)
End Sub