Cases à cocher pour cacher des lignes

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
For Each cellule In Range("A2:A" & Range("A65535").End(xlUp).Row)
If cellule <> "x" Then Rows(cellule.Row).EntireRow.Hidden = True
Next cellule
Else
For Each cellule In Range("A2:A" & Range("A65535").End(xlUp).Row)
If cellule <> "x" Then Rows(cellule.Row).EntireRow.Hidden = False
Next cellule
End If
End Sub

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
For Each cellule In Range("B2:B" & Range("B65535").End(xlUp).Row)
If cellule <> "x" Then Rows(cellule.Row).EntireRow.Hidden = True
Next cellule
Else
For Each cellule In Range("B2:B" & Range("B65535").End(xlUp).Row)
If cellule <> "x" Then Rows(cellule.Row).EntireRow.Hidden = False
Next cellule
End If
End Sub

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
For i = 1 To Range("A65535").End(xlUp).Row
Rows(i).EntireRow.Hidden = False
Next i
For Each cellule In Range("A2:A" & Range("A65535").End(xlUp).Row)
If cellule <> "x" Then Rows(cellule.Row).EntireRow.Hidden = True
Next cellule
Else
For Each cellule In Range("A2:A" & Range("A65535").End(xlUp).Row)
If cellule <> "x" Then Rows(cellule.Row).EntireRow.Hidden = False
Next cellule
End If
End Sub

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
For i = 1 To Range("B65535").End(xlUp).Row
Rows(i).EntireRow.Hidden = False
Next i
For Each cellule In Range("B2:B" & Range("B65535").End(xlUp).Row)
If cellule <> "x" Then Rows(cellule.Row).EntireRow.Hidden = True
Next cellule
Else
For Each cellule In Range("B2:B" & Range("B65535").End(xlUp).Row)
If cellule <> "x" Then Rows(cellule.Row).EntireRow.Hidden = False
Next cellule
End If
End Sub

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Columns("A:B").AutoFilter Field:=1, Criteria1:="x"
If CheckBox1.Value = False Then Columns("A:B").AutoFilter
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then Columns("A:B").AutoFilter Field:=2, Criteria1:="x"
If CheckBox2.Value = False Then Columns("A:B").AutoFilter
End Sub

Dim OO As OLEObject, Formule As String, Champ As Long, Ligne As Long, Colonne As Long
    With Sheets("Sheet1")
        Formule = ""
        Ligne = .Range("Titr").Row + 1
        Colonne = .Range("Titr").Range("A1").Column
        For Each OO In .OLEObjects
            If OO.progID Like "Forms.CheckBox*" Then
                If OO.Object.Value Then
                    Champ = Application.Match(OO.Object.Caption, .Range("Titr"), 0)
                    If Formule <> "" Then Formule = Formule & ","
                    Formule = Formule & .Cells(Ligne, Colonne + Champ - 1).Address(False, False) & "=""x"""
                End If
            End If
        Next
        If Formule = "" Then
            AfficheTout
        Else
            Formule = "=OR(" & Formule & ")"
            .Range("Crit").Range("A2").Formula = Formule
            .Range("Liste[#All]").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("Crit"), Unique:=False
        End If
    End With
End Sub

Sub AfficheTout()
    With Sheets("Sheet1")
        If .FilterMode Then .ShowAllData
        For Each OO In .OLEObjects
            If OO.progID Like "Forms.CheckBox*" Then
                If OO.Object.Value Then OO.Object.Value = False
            End If
        Next
    End With
End Sub