Sub Masquer()
Application.ScreenUpdating = False
With [A21:A48,A50:A63,A65:A78] 'adapter la ou les plages
.EntireRow.Hidden = False 'RAZ
On Error Resume Next 'si aucune SpecialCell
.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End With
End Sub