Utiliser la valeur sélectionnée d'un segment pour filtrer l'export

Bonjour,

Encore un nouveau défis pour vous

J'utilise le code ci-dessous à partir d'une feuille. L'exécution permet de forcer la valeur "74" au segment "U", puis d'exporter le résultat au format PDF pour l'enregistrer dans un répertoire réseau.

Tout fonctionne, mais j'aimerais pouvoir exécuter ce code en applicant la valeur sélectionnée par l'utilisateur dans le segment U pour lui permettre d'être autonome.

En gros et très vulgairement, j'aimerais remplacer Value1:="74" par Value1 = CurrentValue

Merci pour votre aide et pistes de solutions

Sub CopyExport_TEST()
Dim wbk As Workbook
Dim Sh As Worksheet
Dim Name As String
Dim valeur As String

Application.ScreenUpdating = False

With ActiveSheet
'Supprime la sélection déjà présente dans le segment U
.PivotTables("Tableau croisé dynamique1").PivotFields("U").ClearAllFilters
'Active le filtre sur la valeur 74 dans le segment U
.PivotTables("Tableau croisé dynamique1").PivotFields("U").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:="74"
End With

ThisWorkbook.Sheets(Array("NORD")).Copy
Set wbk = ActiveWorkbook
For Each Sh In wbk.Worksheets
Next Sh

'Format Print Area to one Page
With ActiveSheet.PageSetup
ActiveSheet.PageSetup.PrintArea = "A:X"
End With
Application.DisplayAlerts = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="G:\" & Format(Date, "mmmm-yyyy") & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
Application.DisplayAlerts = False
wbk.Close
Set wbk = Nothing
End Sub

J'ai peur que ma question soit "débile" dans le sens ou je n'ai qu'à simplement retirer le bout du code qui filtre sur le segment et laisser l'export se faire sur ce qui est affiché à l'écran après les manipulations de filtrage de l'utilisateur

Mais je vais quand même attendre vos idées.