Bonjour,

Si le nom des feuilles est tjs le même (donc pas dynamique) tu peux essayer qqchose comme :
"
Sub PrintReport()
'
Dim AdobePrinter As String

Sheets(Array("R_Volume", "R_Number")).Select
Sheets("R_Volume").Activate
AdobePrinter = GetFullNetworkPrinterName("Adobe PDF")
Application.ActivePrinter = AdobePrinter
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
AdobePrinter, Collate:=True
End Sub
"
R_Number, R_Volume étant le nom des tes feuilles
et AdobePrinter le nom de ton imprimante

What Jesus can't fix tonight,
The Whisky certainly might.

Salut,

pour continuer sur la lancée de deus, une boucle avec For Each Next est une solution possible :

Sub PrintReport()
    Dim wshFeuille      As Worksheet
    Dim AdobePrinter    As String
    
    Sheets(Array("R_Volume", "R_Number")).Select
    Sheets("R_Volume").Activate
    
    For Each wshFeuille In ActiveWorkbook.Sheets
        If Left(wshFeuille.Name, 5) = "Graph" Then
            AdobePrinter = GetFullNetworkPrinterName("Adobe PDF")
            Application.ActivePrinter = AdobePrinter
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=AdobePrinter, Collate:=True
        End If
    Next
End Sub