Sub regle_periode()
Dim Période As String
Dim Trouve As Range
Période = Year(Date) & Right("0" & Month(Date), 2)
Set Trouve = Sheets("Données").Range("J:J").Find(Période, lookat:=xlWhole)
If Trouve Is Nothing Then MsgBox "Pas de données pour cette période": Exit Sub
with Sheets("TCD").PivotTables("Tableau croisé dynamique1").PivotFields("Période (code)")
.ClearAllFilters
.CurrentPage = Période
end with
End Sub