accélèrer un code qui masque les lignes vides

Private Sub Workbook_Open()
    Dim oldCalculation As XlCalculation
    oldCalculation = Application.Calculation
    On Error GoTo FinMasquage
    With Worksheets("tableau de bord")
        Dim J As Long   'code pour masquer les lignes
        Dim Plage As Range
        Dim plgRes As Range   'Plage d'union de toutes les lignes à masquer
        Set Plage = Range("a3", Range("a200"))
        Application.Calculation = xlCalculationManual
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        For J = Plage.Cells.Count To 1 Step -1
            If Plage.Cells(J).Value = "" Then
                If plgRes Is Nothing Then
                    Set plgRes = Plage.Cells(J)
                Else
                    Set plgRes = Union(plgRes, Plage.Cells(J))
                End If
            End If
        Next
        'Masquage de toutes les lignes trouvée
        If Not plgRes Is Nothing Then plgRes.EntireRow.Hidden = True
    End With
FinMasquage:
        Application.Calculation = oldCalculation
        Application.EnableEvents = False
        Application.ScreenUpdating = False
End Sub