Autres RÉSOLU ma macro ne fonctionne pas

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Ws As Worksheet
    Dim FeuilleActive As String

    Application.ScreenUpdating = False
    Application.EnableEvents = False
        FeuilleActive = ActiveSheet.Name
        On Error Resume Next
            For Each Ws In Worksheets
                With Ws
                    .Rows("16:47").Hidden = Not .Rows("16:47").Hidden
                End With
            Next
        On Error GoTo 0
    Application.EnableEvents = True
    Application.ScreenUpdating = True
   Range("A1").Select
End Sub