Macro - exécution longue

Sub Saisie()
'
' Saisie Macro
' Macro enregistrée le 12/03/2002 par Jean-Pierre ROTH
'

'
    Application.ScreenUpdating = False
    Sheets("Saisie").Select
    ActiveSheet.Unprotect
    
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
    End With
    Application.WindowState = xlMinimized
    '******************************************************************
    'ActiveSheet.ShowDataForm  ' grille aux formats US
    Application.CommandBars.FindControl(ID:=860).Execute ' grille aux formats locaux : FR
    '********************************************************************
    
    ActiveWindow.ScrollRow = 1
    With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
    End With
    
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
    
    Application.DisplayFullScreen = False
    ActiveWindow.DisplayHeadings = True
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
    
    Application.Goto Reference:="R1C1"
    
    Range("AG1:BT1").Select
    Selection.Copy
    Range("AG2:BT1000").Select
    ActiveSheet.Paste
    
    Columns("A:A").Select
    Selection.Copy
    Columns("B:B").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Infos               agenda              client - NE RIEN ECRIRE "
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    Columns("B:B").Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    
    On Error Resume Next
    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
    Range("B2").Select
    
    ActiveWindow.ScrollColumn = 5
    Application.WindowState = xlMaximized
    Sheets("Clients").Select
    Sheets("Saisie").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True
    ActiveWorkbook.Save
End Sub