macro masquer des lignes et démasquer d'autre lignes ??

Sub LesLignes()
Dim demasquer&
Dim masquer&
With ActiveSheet
  masquer& = .Range("A1").End(xlDown).Row
  demasquer& = .Range("A65536").End(xlUp).Row + 1
  If .Rows(masquer&).EntireRow.Hidden = False Then
    .Rows(masquer&).EntireRow.Hidden = True
  End If
  If .Rows(demasquer&).EntireRow.Hidden = True Then
    .Rows(demasquer&).EntireRow.Hidden = False
  End If
  End With
End Sub

'/// A adapter selon votre goût ///
Const BORNE As String = "####"
'//////////////////////////////////

Sub Descendre()
Call VoirLignes(True)
End Sub

Sub Remonter()
Call VoirLignes(False)
End Sub

Sub VoirLignes(VersLeBas As Boolean)
Dim deb&
Dim fin&
Dim numLig&
Dim R As Range
On Error Resume Next
deb& = Cells.Find(What:=BORNE, After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlNext).Row + 1
fin& = Cells.FindNext(After:=Range("a" & deb&)).Row - 1
If deb& = 0 Or fin& <= deb& Then Exit Sub
On Error GoTo 0
Set R = Range(Cells(deb&, 1), Cells(fin&, 1))
Set R = R.SpecialCells(xlCellTypeVisible)
If VersLeBas Then
  numLig& = R.Row
Else
  numLig& = R.Row - 1
End If
If numLig& = deb& - 1 Then Exit Sub
If numLig& + R.Rows.Count = fin& + 1 Then Exit Sub
With ActiveSheet
  .Rows(numLig&).EntireRow.Hidden = VersLeBas
  .Rows(numLig& + R.Rows.Count).EntireRow.Hidden = Not VersLeBas
End With
End Sub

Sub AjouterLignes()
Dim deb&
Dim fin&
Dim numLig&
Dim R As Range
Dim reponse
Dim Rdeb&
Dim Rfin&
Dim i&
On Error Resume Next
deb& = Cells.Find(What:=BORNE, After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlNext).Row + 1
fin& = Cells.FindNext(After:=Range("a" & deb&)).Row - 1
If deb& = 0 Or fin& <= deb& Then Exit Sub
On Error GoTo 0
Set R = Range(Cells(deb&, 1), Cells(fin&, 1))
Set R = R.SpecialCells(xlCellTypeVisible)
Rdeb& = R.Row
Rfin& = R.Row + R.Rows.Count - 1
reponse = Application.InputBox(Title:="Démasquer plus de lignes", Type:=1, _
  prompt:="Tapez le nombre de lignes" & vbCrLf & "(négatif=vers le haut / positif=vers le bas)")
If reponse = False Or reponse = 0 Then Exit Sub
If reponse > 0 Then
  For i& = Rfin& + 1 To Rfin& + reponse
    If i& = fin& + 1 Then Exit For
    ActiveSheet.Rows(i&).EntireRow.Hidden = False
  Next i&
Else
  For i& = Rdeb& - 1 To Rdeb& + reponse Step -1
    If i& = deb& - 1 Then Exit For
    ActiveSheet.Rows(i&).EntireRow.Hidden = False
  Next i&
End If
End Sub