Macro qui supprime les lignes masquées, ne le fait pas complétement...

maligne = Range("A65536").End(xlUp).Row [COLOR="Blue"][B]+ 20 [/B][/COLOR]

Dim WS_Count As Integer
            Dim I As Integer
            Dim x As Integer
            Dim maligne As Integer
         ' Set WS_Count equal to the number of worksheets in the active
         ' workbook.
         WS_Count = ActiveWorkbook.Worksheets.Count

         ' Begin the loop.
         For I = 1 To WS_Count

            

maligne = Range("A65536").End(xlUp).Row + 50

For x = maligne To 1 Step -1
If Rows(x).Hidden = True Then Rows(x).Delete
Next
        
            
            MsgBox ActiveWorkbook.Worksheets(I).Name

         Next I

Worksheets(I).Activate