Private Sub CommandButton1_Click()
Dim Selection_Liste As String
Selection_Liste = Range("A26").Value
ActiveSheet.PivotTables("tcd1").PivotFields( _
"Mois").CurrentPage = Selection_Liste
ActiveSheet.PivotTables("tcd2").PivotFields( _
"Mois").CurrentPage = Selection_Liste
ActiveSheet.PivotTables("tcd3").PivotFields( _
"Mois").CurrentPage = Selection_Liste
End Sub