Sub MasqueDemasque()
Dim col&, lig&, Rng As Range: Set Rng = Cells(Rows.Count, Columns.Count)
col = Cells(1, Columns.Count).End(xlToLeft).Column
lig = Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(1, col + 1), Rng).EntireColumn.Hidden = Not Range(Cells(1, col + 1), Rng).EntireColumn.Hidden
Range(Cells(lig + 1, 1), Rng).EntireRow.Hidden = Not Range(Cells(lig + 1, 1), Rng).EntireRow.Hidden
End Sub