Voila.
 
Bon week-end.
 
Fab

Voila, j'ai apparement trouvé sur un site américain (http://www.mrexcel.com/tip026.shtml), mais je ne comprend pas vraiment le code :
 
' Find name of page field
PageField2 = ActiveSheet.PivotTables(1).PageFields(2)
' Save the name of the page field displayed when macro begins
OrigPage = ActiveSheet.PivotTables(1).PivotFields(PageField2) .CurrentPage
' Determine how many pages there are in page field
NumPages = ActiveSheet.PivotTables(1).PivotFields(PageField2) .PivotItems.Count
For i = 1 To NumPages
ThisPage = ActiveSheet.PivotTables(1).PivotFields(PageField2) .PivotItems(i)
ActiveSheet.PivotTables(1).PivotFields(PageField2) .CurrentPage = ThisPage
ActiveWindow.SelectedSheets.PrintOut
Next i
' Print the (all) page
ActiveSheet.PivotTables(1).PivotFields(PageField2) .CurrentPage = "(all)"
'ActiveWindow.SelectedSheets.PrintOut
' Restore view back to original page
ActiveSheet.PivotTables(1).PivotFields(PageField2) .CurrentPage = OrigPage
 
Fab
 
PS : Doit-on signaler que le problème est résolu ?
Si oui, comment.

Tu peut editer ton titre de sujet en cliquant sur l'icone et en rajoutant la balise [résolu] devant.
Sinon pour t'expliquer le code ... ben j'ai un peu la flemme de reflechir maintenant, mais bon ... le principale pour le moment c'est que tu ai réussi a faire marcher ce que tu voulais