Si checkbox non cocher, masquer la ligne

Private Sub CommandButton1_Click()
Dim Obj As OLEObject
Dim Lig1 as integer
Lig1 = 6
    'boucle sur les objets de la Feuil1
    For Each Obj In Sheets("Feuil1").OLEObjects
        'verifie s'il s'agit d'un CheckBox
        If TypeOf Obj.Object Is MSForms.CheckBox Then
            If Obj.Object.Value = False Then
               Obj.Object.visible = False
               N = Val(Right(Obj.Name, 3)) + Lig1
               Rows(N).Hidden = True
            End If
        End If
    Next Obj
End Sub

Private Sub CommandButton1_Click() 
Dim Cont As Control
Dim Lig1 as integer
Dim N as integer
    Lig1=4 ' ajuster à la première ligne du premier CheckBox   
    For Each Cont In Me.Controls
        If TypeOf Cont Is MSForms.CheckBox Then
            if Cont.Value = False then
               N = Val(Right(Cont.Name, 3)) + Lig1
               Rows(N).visible = False
            End if
        End If
    Next Cont
End Sub