Dim pi As PivotItem, dat1 As Date
'dat1 = DateSerial(Year(Date), Month(Date), 1)
dat1 = DateValue("2/9/2013")
For Each pi In ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Années").PivotItems
pi.ShowDetail = True
Select Case Left(pi, 1)
Case "<"
If CDate(Mid(pi, 2)) < dat1 Then pi.ShowDetail = False
Case Else
If pi < Year(Date) Then pi.ShowDetail = False
End Select
Next pi