Masquer des lignes des données

Bonjour à toutes et à tous,

J'ai un tableau où on rajoute des données. Une fois par période, on actualise les données.

Pour simplifier la gestion de ces données, je voudrais pouvoir masquer des lignes déjà actualisées.

J'ai rajouté deux boutons et deux macros.

Sub Masquer_des_lignes()
'
' Masquer_des_lignes Macro

    Rows("2:452").Select
    Selection.EntireRow.Hidden = True
End Sub

Sub Ouvrir_tout()
'
' Ouvrir_tout Macro
    Rows("1:452").Select
    Selection.EntireRow.Hidden = False
        Range("A3").Select
End Sub

Dans la cellule Q1 on indique le numéro de la dernière ligne actualisé.

je voudrais demander votre aide afin de pouvoir rajouter la valeur de la cellule Q1 dans les codes et que les lignes seront masquées jusqu'à cette ligne et pas jusqu'à la ligne 452.

Pourra-t-il quelqu'un m'aider avec ça?

Merci d'avance!

Baton

Bonjour,

Sub Masquer_des_lignes()
' Masquer_des_lignes Macro
    Rows("2:" & Range("Q1").Value).EntireRow.Hidden = True
End Sub
Sub Ouvrir_tout()
' Ouvrir_tout Macro
    Rows("2:" & Range("Q1").Value).EntireRow.Hidden = False
    Range("A3").Select
End Sub

A+

Merci beaucoup!

C'est exactement ça.