Macro excel : changer format date fichier généré automatique

Bonjour,

J'ai un fichier excel de créé ou des contrats sont saisis en masse (onglet import file). Une fois que tout est ok, les personnes lancent la macro en cliquant sur l'icone jaune dans l'onglet guide.
(génère un fichier csv qui est enregistré la ou le fichier est sauvegardé).
Mon soucis est que dans ce fichier .csv le format des dates n'est pas jj/mm/aaaa

Pourriez vous m'aider à solutionner ce point ?

Ma macro est

Option Explicit
Sub Kshuttleimport()
Dim dossier As String
Dim file As String
Dim LaDate
dossier = ThisWorkbook.Path & "\"
file = "KshuttleimportfileNewContracts - "
LaDate = Format(Now, "dd_mm_yyyy_") & Format(Time, "hh_mm_") 'formatage de la date et heure
Sheets("Import file").Select
Sheets("Import file").Copy
ActiveWorkbook.SaveAs Filename:= _
dossier & file & LaDate & ".csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close
End Sub



Merci à vous,