Private Sub CheckBoxPaires_Click()
Dim DerLig As Long, Lig As Long, Pair As Boolean
If CheckBoxPaires = True Then
'Je décoche les deux autres cases
'CheckBoxImpaires.Value = False
'CheckBoxToutes.Value = False
With Sheets("Feuil1")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
For Lig = 1 To DerLig
Pair = (Lig Mod 2 = 0)
If Pair = True Then
.Range("A" & Lig).EntireRow.Hidden = True
End If
Next
End With
Else
With Sheets("Feuil1")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
For Lig = 1 To DerLig
Pair = (Lig Mod 2 = 0)
If Pair = True Then
.Range("A" & Lig).EntireRow.Hidden = False
End If
Next
End With
End If
End Sub