Sub Masquer_Ligne_Vide()
Dim cel As Range, plage As Range
Application.ScreenUpdating = False
AfficherLignes
With ThisWorkbook.Sheets("Feuil1")
For Each cel In .Range("A3", .Range("A65536").End(xlUp))
If cel = "" Then Set plage = Union(cel, IIf(plage Is Nothing, cel, plage))
Next
End With
If Not plage Is Nothing Then plage.EntireRow.Hidden = True
End Sub