Enregistrer une copie d'un dossier source

Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
(ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
Private Sub CreationDossier(sNomRep As String)
    'ChDrive "D"
    SHCreateDirectoryEx 0&, sNomRep, 0&
End Sub
Sub Copie_Dossier()
t1 = Timer
Dim Nom_Dossier_Destination As String
Nom_Dossier_Source = "C:\Temp"
Nom_Dossier_Destination = "C:\Temp\DossierDest"
CreationDossier Nom_Dossier_Destination
NOMFichier = Dir(Nom_Dossier_Source & "\*", vbNormal)
Do While NOMFichier <> ""
  If NOMFichier <> "." And Fichier <> ".." Then
    Source = Nom_Dossier_Source & "\" & NOMFichier
    Destination = Nom_Dossier_Destination & "\" & NOMFichier
    FileCopy Source, Destination
  End If
  NOMFichier = Dir
Loop
Application.StatusBar = Format(Timer - t1, "0") & " secondes"
End Sub