Dim DebutExecutionMacro As Date

    DebutExecutionMacro = Now
    MsgBox "L'onglet Synthèse du fichier " + NomFichierCible + " est (re)créé." + vbLf + vbLf + _
            "Temps d'exécution : " & Format(Now - DebutExecutionMacro, "hh:mm:ss")