Sub MasqueDemasqueADR()
'Macro deux en un :
'on la lance une première fois; les lignes sont masquées
'on la lance une seconde fois: les lignes sont réaffichées
Application.ScreenUpdating = False
With Range("W16:W550")
.ClearContents
.FormulaR1C1 = "=IF(COUNTBLANK(RC[-1])=1,""$"","""")"
.Value = .Value
.SpecialCells(2, 2).Rows.Hidden = _
Not .SpecialCells(2, 2).Rows.Hidden
.Clear
End With
Application.ScreenUpdating = True
End Sub