XL 2021 Lier deux Segments (Segment1= Tableau Structuré,Segment2= TCD)

Sub MajSeg(SegModif$, ByVal Ch$) 'procedure de Chris adaptée
Dim Cas As SlicerItem
Application.Calculation = xlCalculationManual
    With ThisWorkbook.SlicerCaches(SegModif)
 
        For Each Cas In .SlicerItems
           Cas.Selected = Cas.Value = Ch
        Next Cas
    End With
  
 Application.Calculation = xlCalculationAutomatic

End Sub

Function RecupValSeg(NomSegment$, Unique As Boolean)
   Dim Cas As SlicerItem
   Dim T(), I&
 
    With ThisWorkbook.SlicerCaches(NomSegment)
      For Each Cas In .SlicerItems
         If Cas.Selected Then
            ReDim Preserve T(I)
            T(I) = Cas.Value
            If Unique = True Then Exit For
            I = I + 1
         End If
      Next Cas
    End With
   RecupValSeg = T
End Function

Sub FiltreTabStructure(F As Worksheet, NomTab$, Critere1, _
                        Optional Col& = 1, Optional OP& = 7, Optional  Critere2)
   'Filtre un tableau struturé sur la colonne 1 par défaut
   'Xlor=2,xlTop10Items=3 xlFilterValues=7...
      With F.ListObjects(NomTab)
        .AutoFilter.ShowAllData ' en cas de filtre déjà activé
         If IsMissing(Critere2) Then
            .Range.AutoFilter Col, Critere1, OP
         Else
            .Range.AutoFilter Col, Critere1, OP, Critere2
         End If
      End With
 End Sub