With ActiveSheet.PivotTables("TCD5").PivotFields("Perio d")
.Orientation = xlPageField
.Position = 1
End With
Dim Date1 As String
Date1 = Trim(ThisWorkbook.Sheets("Feuil1").Range("I3"))
ActiveSheet.PivotTables("TCD5").PivotFields("Perio d").CurrentPage = _
Date1