Bonjour,
Grâce à Sebast (que je remercie une nouvelle fois) j'ai la solution à mon problème que je mets ci-dessous et qui peut intéresser d'autres personnes utilisant les tableaux croisés dynamiques :
Sub Print_TCD() 'Sebast
If ActiveSheet.PivotTables.Count > 0 Then
With ActiveSheet.PageSetup
.PrintArea = ActiveSheet.PivotTables("Tableau croisé dynamique1").TableRange2.Address
' en écrivant ... TableRange2.Address et non TableRange1.Address, tu sélectionnes y compris le bloc au-dessus du TCD,
' celui où tu sélectionnes tes restrictions
.FitToPagesTall = 1 ' pour ajuster à la taille de la page en hauteur
.FitToPagesWide = 1 ' pour ajuster à la taille de la page en largeur
.CenterHorizontally = True ' centrage horizontal
.CenterVertically = True ' centrage vertical
ActiveSheet.PrintOut
End With
End If
End Sub
Bonne après midi