Pourquoi c'est si long ?!

Bonjour,
J'ai créé des macros sur un fichier excel 2010 mais elles sont très longues à réagir, parfois jusqu'à 10 secondes. Il me semble que je ne peux pas faire plus court pourtant... J'ai fouillé sur les forums pour voir comment optimiser un code vba mais par exemple, on propose de supprimer des "select" mais si je fais cela, la macro ne fonctionne plus du tout. Est-ce que quelqu'un pourrait me dire ce qui coince sur ces macros et comment les accélérer svp ? Merci

1ère macro

Sub PlazzaSPAThomas()
'
' PlazzaSPAThomas Macro
'
    Application.ScreenUpdating = False
    Sheets("RE").Select
    ActiveWindow.ScrollRow = 1
    ActiveSheet.PivotTables("TCD_RE").PivotFields("Equipe").ClearAllFilters
    ActiveSheet.PivotTables("TCD_RE").PivotFields("Equipe").CurrentPage = _
        "Thomas Pascale"
    Call MiseEnForme
    Application.ScreenUpdating = True
End Sub

2è macro

Sub MiseEnForme()
'
' Mets les colonnes et les lignes à la bonne dimension
'
    Application.ScreenUpdating = False
    Columns("A:A").ColumnWidth = 36
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("B:B").ColumnWidth = 28
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("C:C").EntireColumn.AutoFit
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("D:D").ColumnWidth = 45
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Rows("2:1500").RowHeight = 25
    Columns("C:E").Select
        With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
    Selection.Font.Bold = True
    Rows("2:5").EntireRow.Hidden = True
    Rows("6:6").RowHeight = 43
    Rows("6:6").Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    ActiveWindow.DisplayGridlines = False
    Application.ScreenUpdating = True
End Sub