Arborescence selective (selon le nom de section) pour un tableau

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, sup As Range, ref As Range, r1, r2
Application.ScreenUpdating = False
For Each cel In Range("C2", Range("C65536").End(xlUp))
  If cel <> "+" Then Set sup = Union(cel, IIf(sup Is Nothing, cel, sup))
Next
If Not sup Is Nothing Then Intersect(sup.EntireRow, Range("A:E")).Delete xlUp
On Error Resume Next 'Target peut avoir été supprimé...
Set Target = Target.Cells(1, 1)
If Target <> "+" Then Exit Sub
Set ref = Cells(Target.Row + 1, 1).Resize(, 5)
r1 = Target.Offset(, -2)
r2 = Target.Offset(, -1)
With Sheets("SelectionExplLect") 'ou mieux => With Feuil1
  For Each cel In .Range("B2", .Range("B65536").End(xlUp))
    If cel.Offset(, -1) = r1 And cel = r2 Then
      cel.Offset(, -1).Resize(, 5).Copy
      ref.Insert
    End If
  Next
  Application.CutCopyMode = False
End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target <> "-" Then Exit Sub
Dim sup as Range
Cancel = True
Application.ScreenUpdating = False
Target = "+"
1 Set sup = Target.Offset(1)
If sup <> "+" And sup <> "-" And sup <> "" Then sup.Offset(, -2).Resize(, 5).Delete xlUp: GoTo 1
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cel As Range, sup As Range, ref As Range, r1, r2

If Target = "+" Then
  Cancel = True
  Application.ScreenUpdating = False
  Target = "-"
  Set ref = Cells(Target.Row + 1, 1).Resize(, 5)
  r1 = Target.Offset(, -2)
  r2 = Target.Offset(, -1)
  With Sheets("SelectionExplLect") 'ou mieux => With Feuil1
    For Each cel In .Range("B2", .Range("B65536").End(xlUp))
      If cel.Offset(, -1) = r1 And cel = r2 Then
        cel.Offset(, -1).Resize(, 5).Copy
        ref.Insert
      End If
    Next
    Application.CutCopyMode = False
  End With
  Exit Sub
End If

If Target = "-" Then
  Cancel = True
  Application.ScreenUpdating = False
  Target = "+"
1 Set sup = Target.Offset(1)
  If sup <> "+" And sup <> "-" And sup <> "" Then sup.Offset(, -2).Resize(, 5).Delete xlUp: GoTo 1
End If

End Sub