Microsoft 365 VBA: Filtrer un TCD avec une date dans une cellule

[PCharlier]

Bonjour!
J'ai créé une macro permettant de lancer la création de plusieurs TCD simultanément, avec un filtre spécifique, et j'aimerai ajouter un filtre supplémentaire si la cellule A1 de la feuil "Mode D'emploi" est remplie avec une date par l'utilisateur.

J'ai tenté les syntaxes suivantes sans succès, sauriez vous comment je peux faire?
Merci d'avance!!

                Dim dat
                dat = Worksheets("Mode D'emploi").Cells(1, 1).Value
                If dat <> "" Then
                Worksheets("RECAP PAR FAMILLE").Activate
                ActiveSheet.PivotTables("tcd" & i).PivotFields("Date").ClearAllFilters
                ActiveSheet.PivotTables("tcd" & i).PivotFields("Date").CurrentPage = dat
                End If

                Dim dat
                dat = Worksheets("Mode D'emploi").Cells(1, 1).Value
                If dat <> "" Then
                Worksheets("RECAP PAR FAMILLE").Activate
                ActiveSheet.PivotTables("tcd" & i).PivotFields("Date").ClearAllFilters
                ActiveSheet.PivotTables("tcd" & i).PivotFields("Date").PivotFilters.Add Value:=CLng(Worksheets("Mode D'emploi").Range("A1").Value)
                End If