Bonjour le fil, bonjour le forum,
Si la date est dans la cellule A1 et elle est renvoyée dans la cellule G1 par exemple. Tu peux passer par une variable D (par exemple) :
Sub Macro1()
Dim D As Date
D = DateSerial(Year(Range("A1").Value), Month(Range("A1").Value), Day(Range("A1").Value))
Range("G1").Value = D
End Sub