Sub Masquer()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
.Rows(.Rows.Count + 1) = "=1/(COUNTIF(R1C:R[-1]C,""X"")=" & .Rows.Count & ")"
On Error Resume Next 'si aucune SpecialCell
.Rows(.Rows.Count + 1).SpecialCells(xlCellTypeFormulas, 1).EntireColumn.Hidden = True
.Rows(.Rows.Count + 1).Delete xlUp
End With
End Sub