rendre visible 1ere ligne vide après masquage

[pascal21]

  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("a7", Range("a35"))
        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

bonjour le forum
grâce à ce code de hasco, je masque les lignes vide de la ligne 7 à 35
j'ai choisi de mettre ce code pour une question de lisibilité du classeur
maintenant, je souhaite pouvoir afficher (rendre visible) la première ligne vide
et que le curseur pointe dessus (accessoirement)

Rows("7:35").Select
Selection.EntireRow.Hidden = False

j'ai ça, mais ça ré-affiche toutes les cellules
merci de votre aide

 

[pascal21]

Re : rendre visible 1ere ligne vide après masquage

Oupss désolé je viens de voir que j'avais déjà posé la question et il n'y a pas si longtemps
donc j'ai la réponse
pardon pour le dérangement