Masquer ligne ne fonction de la valeur d'une check box

Bonjour.

J'ai une check box en control X. Le nom est CheckBox2. Je désire masquer les lignes 2 à 9 si la valeur est true , donc si la case est coché.

Mon code est insérer dans ma feuil1 (projet). Malheureusement ca ne fonctionne pas. MErci de votre support. Grace à vous je deviens meilleur !

Private Sub masque()
If CheckBox2.Value = True Then
Rows("9'4").hiden = True
End If

End Sub

MErci de votre support

Bonsoir,

Eventuellement comme ceci :

Private Sub masque()
Dim a as byte
With activesheet
    If Me.CheckBox2.Value = True Then
        For a = 9 To 4 Step -1
            .Rows(a).Hidden = True
        Next a
    End if
End with
End If

A plus tard.

Finalement j'ai trouvé la solution. Beaucoup plus simpe que je ne pensait