Sub MasquerLignesVides()
Application.ScreenUpdating = False
With ActiveSheet
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .UsedRange
.Columns(1).Insert xlToRight 'colonne auxiliaire
.Columns(0) = "=1/(COUNTIF(RC[1]:RC[" & .Columns.Count & "],""><"")+COUNT(RC[1]:RC[" & .Columns.Count & "])>0)"
On Error Resume Next 'si aucune SpecialCell
.Columns(0).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
.Columns(0).Delete xlToLeft
End With
End With
End Sub