Checkbox et macro pour masquer des lignes

Bonjour,

J'essaie desespérement de masquer par une macro les lignes dont les checkbox ne sont pas cochées.
Sur ma feuille Excel, j'ai en colonne A les checkbox et en colonne B des prénoms. Je voudrais pouvoir masquer les lignes pour lesquelles les checkbox ne sont pas cochées, et ce via une macro (j'ai plus de 400 lignes dans mon tableau) lancée par un CommandBoutton.

Les différentes options essayées jusque là n'ont pas marchées et je ne trouve pas de réponse adhéquate sur les forums. Quelqu'un peut-il m'aider ???

Voici le dernier code tenté :

Private Sub CommandButton1_Click()
Dim i As Long
Dim Ws As Worksheet

Application.ScreenUpdating = False

Rows.Hidden = False
For i = 1 To 14
For Each CheckBox In Ws.Range("A3:A16")
    If CheckBox(i).Object.Value = False Then
    Rows(i).EntireRow.Hidden
        End If
Next CheckBox
Next i

Application.ScreenUpdating = True

End Sub

Par avance merci !