Columns("P:IV").EntireColumn.Hidden = Not Columns("P:IV").EntireColumn.Hidden
' pour les colonnes
Columns("P:IV").EntireColumn.Hidden = Not Columns("P:IV").EntireColumn.Hidden
' Pour les lignes
Rows("20:65536").EntireRow.Hidden = Not Rows("20:65536").EntireRow.Hidden
Sub MasquerLignesColonnes()
Lig = InputBox("Veuillez saisir le nombre de ligne à conserver")
Col = InputBox("Veuillez saisir le nombre de colonne à conserver")
Range(Cells(Lig + 1, 1), Cells(Lig + 1, 1).End(xlDown)).EntireRow.Hidden = True
Range(Cells(1, Col + 1), Cells(1, Col + 1).End(xlToRight)).EntireColumn.Hidden = True
End Sub