Bonsoir,
Sous Excel 2013, cette fonction VBA me donne bien la date voulue dans la cellule A1 :
Range("A1").Value = DateSerial(2015, 2, 1)
Et j'ai bien le 01 Février 2015
Si tu as des soucis, tu peux également essayer :
Range("A1").Value = CDate(DateSerial(2015, 2, 1))
Bonne soirée