Pb copie de fichiers

Bjr a tous mes AMIS du forum ,
J'ai un pb dans la sauvegarde d'un fichier je ne vois pas mon erreur , ci joint mon code :
Dim RepDest As String
Dim CheminDep As String
Dim NomFic As String
NomFic = "BrouillardCaisse.xls"
RepDest = Range("A4").Value ' REPERTOIRE = E:\0708
'FICHIER A SAUVEGARDER VERS E:\0708
CheminDep = "C:\HAPPYCREPES\BrouillardCaisse.xls"
FileCopy CheminDep, RepDest, NomFic
'
Mon Code ne fonctionne pas Pourquoi ??? Merci de votre Aide GDS35