Autres (RESOLU) Protéger la feuille code afficher masquer ne fonctionne pas

Private Sub Worksheet_Change(ByVal C As Range)

ActiveSheet.Unprotect 'tu déprotèges

If C.Address = "$E$4" Then
        Select Case C
        Case "": Rows("6:65").Hidden = True
        Case 1: Rows("6:17").Hidden = False
                Rows("18:65").Hidden = True
       
        Case 2: Rows("6:29").Hidden = False
                Rows("30:65").Hidden = True
       
        Case 3: Rows("6:41").Hidden = False
                Rows("42:65").Hidden = True
       
        Case 4: Rows("6:53").Hidden = False
                Rows("54:65").Hidden = True
       
        Case 5: Rows("6:65").Hidden = False
            ' à compléter...
        End Select
        C.Select
    End If
    ActiveSheet.Protect 'Tu protéges

End Sub