Sélectionner des lignes comme dans une adresse email

des case à cocher comme dans une adresse email.

voudrais sélectionner des lignes

Rows(x).select

Private Sub Worksheet_Change(ByVal Target As Range)
  call SelRows
End sub

Sub SelRows() 
    Dim ocell As Range 
    Dim rng As Range 
     
    For Each ocell In Range("I1:I10")  
        If ocell.Value = "TRUE" Then 
             
            If rng Is Nothing Then 
                Set rng = ocell.EntireRow 
            Else   
                Set rng = Union(rng, ocell.EntireRow) 
            End If 
        End If 
    Next  
    If Not rng Is Nothing Then rng.Select   
    Set rng = Nothing 
    Set ocell = Nothing 
End Sub