Afficher/masquer (avec une case à cocher) des cellules dans une plage variable

Option Explicit
Dim ligne As Integer
Dim plage As Range
Dim colonne As String
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
colonne = "C"
Principale ("Compétence 1")
Principale ("Compétence 2")
Else
  Rows("1:100").EntireRow.Hidden = False
 End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
colonne = "D"
Principale ("Tâche1")
Principale ("Tâche2")
Else
  Rows("1:100").EntireRow.Hidden = False
 End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
colonne = "E"
Principale ("Item1")
Principale ("Item2")
Principale ("Item3")
Principale ("Item4")
Else
  Rows("1:100").EntireRow.Hidden = False
 End If
 End Sub
Sub Principale(ByVal nom As String)
Dim Lignes(), i As Long
Dim Texte As String
Dim plage As Range

Dim Flag As Boolean
Set plage = Sheets("Feuil1").Range(colonne & ":" & colonne)  'plage de recherche
Texte = nom  'expression cherchée
Flag = Find_Next(plage, Texte, Lignes())  'appel de la fonction
If Flag Then  'si fonction retourne Vrai = expression trouvée dans la plage
    For i = LBound(Lignes) To UBound(Lignes)   'restitution des lignes correspondantes
        ligne = Lignes(i)
       Range(ligne & ":" & ligne).EntireRow.Hidden = True
    Next i
Else
    MsgBox "L'expression : " & Texte & " n'a pas été trouvée dans la plage : " & plage.Address
End If
End Sub
'Sources : Michel_m
'http://www.commentcamarche.net/forum/affich-31432413-importation-de-donnees-sans-doublons#9
Function Find_Next(Rng As Range, Texte As String, Tbl()) As Boolean
Dim Nbre As Integer, Lig As Long, Cptr As Long
On Error Resume Next
    Nbre = Application.CountIf(Rng, Texte)
    If Nbre > 0 Then
        ReDim Tbl(Nbre - 1)
        Lig = 1
        For Cptr = 0 To Nbre - 1
            Lig = Rng.Find(Texte, Cells(Lig, Rng.Column), xlValues).Row
            Tbl(Cptr) = Lig
        Next
    Else
        GoTo Absent
    End If
    Find_Next = True
    Exit Function
Absent:
    Find_Next = False
End Function