XL 2016 décocher la dernière ligne d'un tcd

Bonjour,

je débute en vba.

j'aimerais savoir si il possible avec une ligne de code de pouvoir décocher la dernière case sélectionné dans un filtre d'un tcd
ci-dessous mon code mais si mydate n'est pas identique a mypvt alors cela me coche systématiquement la dernière case.

Sub Macro1()

Dim MyDate As String, MyPVT As PivotItem
MyDate = ThisWorkbook.Sheets("LIGNE 1").Range("Y8")

Application.ScreenUpdating = False

With ThisWorkbook.Sheets("TABL_DECLA_PVR")
With .PivotTables("Tableau croisé dynamique1").PivotFields("DATE X3")
.ClearAllFilters
For Each MyPVT In .PivotItems
If Format(MyPVT, "DD/MM/YYYY") = MyDate Then
MyPVT.Visible = True
Else
On Error GoTo Myerreur
MyPVT.Visible = False
End If
Next MyPVT
End With
End With

Exit Sub

Application.ScreenUpdating = False

Myerreur:
With ThisWorkbook.Sheets("TABL_DECLA_PVR").PivotTables("Tableau croisé dynamique1").PivotFields("DATE X3" _
)
.PivotItems("(blank)").Visible = True

End With


End Sub


j'espère être assez clair???

merci pour vos retours.

cordialement