afficher et masquer les lignes par bouton

Sub aff_mas()
  Dim u42 As Range
  Dim u45 As Range
  
  Set u42 = Range("U42")
  Set u45 = Range("U45")
  
  Range("42:43,45:45").EntireRow.Hidden = False
  If IsNumeric(u42) Then
    If u42 > 0 And u45 = "" Then
      Rows("43,45").Hidden = True
    End If
  End If
  If IsNumeric(u45) Then
    If u45 > 0 And u42 = "" Then
      Rows("42:43").Hidden = True
    End If
  End If
  
End Sub

Private Sub CheckBox1_Click() ' RG sur HT

If CheckBox1 = True Then
Worksheets("Fac").Rows("43").Hidden = True
Worksheets("Fac").Rows("45").Hidden = True
Worksheets("Fac").Range("U45:V45").ClearContents
Else
If CheckBox1 = False Then
Worksheets("Fac").Rows("43").Hidden = False
Worksheets("Fac").Rows("45").Hidden = False
End If
End If

End Sub


Private Sub CheckBox2_Click() 'RG sur TTC

If CheckBox2 = True Then
Worksheets("Fac").Rows("42:43").Hidden = True
Worksheets("Fac").Range("U42:V42").ClearContents
Else
If CheckBox2 = False Then
Worksheets("Fac").Rows("42:43").Hidden = False
End If
End If
 
End Sub

Private Sub CheckBox3_Click() ' sans RG

If CheckBox3 = True Then
Worksheets("Fac").Rows("42:43").Hidden = True
Worksheets("Fac").Rows("45").Hidden = True
Worksheets("Fac").Range("U42:V42").ClearContents
Worksheets("Fac").Range("U45:V45").ClearContents
Else
If CheckBox3 = False Then
Worksheets("Fac").Rows("42:43").Hidden = False
Worksheets("Fac").Rows("45").Hidden = False
End If
End If
 
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub