Re
Normal que cela ne fonctionne pas car vous appelez toujours le calendar1 pour les deux codes
Remplacez vos deux codes par ceux-ci:
Private Sub Calendar1_Click()
With Sheets("Feuil1")
.PivotTables("Tableau croisé dynamique3").PivotFields("Date").CurrentPage = Calendar1.Value
End With
End Sub
Private Sub Calendar2_Click()
With Sheets("Feuil1")
.PivotTables("Tableau croisé dynamique5").PivotFields("Date").CurrentPage = Calendar2.Value
End With
End Sub
On pourrait aussi actualiser le TCD directement via le code avec l'instruction "Refreshtable" mais pour tester dans votre fichier il faudrait la feuille des données qui alimente le TCD
Oubliez pas de cloturer si plus de questions au sujet de votre demande
Cordialement