Sub Macro1()
Dim li As Long
Dim x As Long
li = Range("A65536").End(xlUp).Row
For x = li To 1 Step -1
If Cells(li, 1).EntireRow.Hidden = True Then Cells(li, 1).EntireRow.Delete
Next x
End Sub
Sub SupRowFiltre
Range(Range("A2"), Selection.End(xlDown)).EntireRow.Delete
End Sub