Lenteur d'in code en VBA

Bonjour à tous,

A partir d'un classeur j'utilise le code ci-dessous pour créer un nouveau classeur, faire sa mise en forme et le sauvegarder.

'     Création du Nvx classeur.

    Workbooks.Add                                            ' Création Nvx Classeur
    Sheets("Feuil1").Select                                 ' Sélection feuille1
    Sheets("Feuil1").Name = "Essai1"               ' Nom feuille 1

' Mise en page.

    ActiveSheet.PageSetup.PrintArea = ""
        With ActiveSheet.PageSetup
            .PrintTitleRows = "$26:$27"                 ' Fixe les N° de lignes à imprimer en haut des pages.
            .PrintTitleColumns = ""                         ' Fixe les N° de colonnes à imprimer à gauche des pages.
        End With

     ActiveSheet.PageSetup.PrintArea = ""
         With ActiveSheet.PageSetup
            .LeftHeader = ""                                                    ' Partie gauche de l'entête =  Vide.
            .CenterHeader = ""                                                  ' Partie centrale de l'entête = Vide.
            .RightHeader = ""                                                   ' Partie droite de l'entête = Vide.
            .LeftFooter = "Save_Bdx"                                            ' Partie gauche du pied de page = Save_Bdx.
            .CenterFooter = "&P"                                                ' Partie centrale du pied de page = N° de page.
            .RightFooter = "&J"                                                 ' parie droite du pied de page = Date du jour.
            .LeftMargin = Application.InchesToPoints(0.393700787401575)         ' Règle la marge de gauche.
            .RightMargin = Application.InchesToPoints(0.393700787401575)        ' Règle la marge de droite.
            .TopMargin = Application.InchesToPoints(0.393700787401575)          ' Règle la marge du bas.
            .BottomMargin = Application.InchesToPoints(0.393700787401575)       ' Règle la marge du haut.
            .HeaderMargin = Application.InchesToPoints(0)                       ' Règle l'entête de page.
            .FooterMargin = Application.InchesToPoints(0)                       ' Règle le pied de page.
            .Zoom = False                                                       ' Pour régler le zoom d'impression.
            .FitToPagesWide = 1                                                 ' Adapte la largeur d'impression à la taille du papier.
            .FitToPagesTall = False                                             ' Adapte la hauteur d'impression à la taille du papier.
            .PrintErrors = xlPrintErrorsDisplayed
        End With

'  Sauvegarde.

        Application.DisplayAlerts = False                   ' Bloque le message d'alerte.
        ActiveWorkbook.SaveAs (Nom_Chemin & "\" & Nom_Fichier & " " & Format(Annee_Conncours) & ".xls"), FileFormat:=xlNormal   ' Sauvegarde du fichier créé.
        Application.DisplayAlerts = True                    ' Remet le message d'alerte.

Cela fonctionne parfaitement mais je trouve que cette macro est très longueà s'exécuter, environ 10 secondes, es-ce normal ?
Comment faire pour que se soit plus rapide ?
Merci d'avance pour votre aide.
Cordialement
Mistral