Afficher les lignes sous condition

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then 'interdit de modifier une plage (copier-coller)
  With Application: .EnableEvents = False: .Undo: .EnableEvents = True: End With
ElseIf Target.Column > 6 And Target.Interior.ColorIndex <> xlNone Then
  If Target = "Saisir ici !" Then Exit Sub
  If Target(101) <> "" Then
    MsgBox "La dernière cellule de la colonne est occupée !", 48
  'ElseIf Application.CountIf(Target.Resize(10), Target) > 1 Then
    'MsgBox "La donnée '" & Target & "' existe déjà !", 48
  Else
    If Target <> "" Then
      With Target(101).End(xlUp)(2)
        .Value = Target
        .EntireRow.Hidden = False 'affiche la ligne
      End With
    End If
  End If
  Target = "Saisir ici !": Target.Select
End If
End Sub

Sub Afficher()
'touches Ctrl+A
Rows.Hidden = False
End Sub

Sub Masquer()
'touches Ctrl+M
Dim nlig&, ncol%, i&, dercel As Range, m As Range
nlig = 102 'nombre de lignes de chaque tableau
ncol = 11 'nombre de colonnes
For i = 4 To Me.UsedRange.Row + Me.UsedRange.Rows.Count - 1
  With Cells(i, 7) 'colonne G
    If .Interior.ColorIndex <> xlNone Then
      Set dercel = .Resize(nlig, ncol).Find("*", , , , xlByRows, xlPrevious)
      If dercel Is Nothing Then Set dercel = .Cells
      If dercel.Row < .Cells(nlig).Row Then
        With Rows(dercel.Row + 1 & ":" & .Cells(nlig).Row)
          Set m = Union(.Cells, IIf(m Is Nothing, .Cells, m))
        End With
      End If
    End If
  End With
Next
Application.ScreenUpdating = False
Afficher
If Not m Is Nothing Then m.EntireRow.Hidden = True
End Sub