Private Sub CommandButton2_Click()
With ActiveSheet
.Cells(153, 26).Select
' Comme tu l'as demandé seulement la portion '$A$139:$AP$166' sera visible dans la feuille active.
Union(.Range('$A$1:$AP$138'), .Range('$A$167:$AP$65536')).Rows.Hidden = True
.Range('$AQ:$IV').Columns.Hidden = True
End With
' Je n'ai pas trouvé la commande qui efface un USF, mais a défaut, celle-ci permet de l'enlever de la mémoire.
Unload Me
End Sub