Bonsoir Yann,
Essaye peut être avec ceci...
'============================================
Option Explicit
'Masquer rapidement un ensemble de lignes
Sub MasquerLignes()
Dim lignedebut, lignefin
lignedebut = InputBox("1ère ligne à masquer", "Masquer les lignes")
If lignedebut = "" Then Exit Sub
lignefin = InputBox("Dernière ligne à masquer", "Masquer les lignes")
If lignefin = "" Then Exit Sub
ActiveSheet.Rows(lignedebut & ":" & lignefin).Hidden = True
End Sub
'Masquer rapidement un ensemble de colonne
Sub MasquerColonnes()
Dim ColonneDebut, ColonneFin
ColonneDebut = InputBox("Première colonne à masquer :")
If ColonneDebut = "" Then Exit Sub
ColonneFin = InputBox("Dernière colonne à masquer :")
If ColonneFin = "" Then Exit Sub
If IsNumeric(ColonneDebut) Then ColonneDebut = NomCol(CInt(ColonneDebut))
If IsNumeric(ColonneFin) Then ColonneFin = NomCol(CInt(ColonneFin))
ActiveSheet.Columns(ColonneDebut & ":" & ColonneFin).Hidden = True
End Sub'============================================