Macro lance impression des 2 er feuilles du classeur

Bonjour tous le monde,

J'ai actuellement une macro qui me permet d'imprimer la 1er feuille de mon classeur et j'aurais souhaité la modifier pour pouvoir imprimer les 2 ers feuilles :

CR T2 et TOT2.

J'ai cette formule :

Sub SavePDF()
Dim LaDate$, Chemin$, NomFeuille$
LaDate = Format(Now, "dd-mm-yyyy")
Chemin = Environ("HOMEPATH") & "\Documents\CRECHO\"
NomFichier = Split(ThisWorkbook.Name, ".")(0)
NomFeuille = ActiveSheet.Name & " " & [C6] & [E100] & [C8]
' Construction du chemin complet
CheminComplet = Chemin & " " & NomFeuille & " " & LaDate & ".pdf"
' Sub PiedDePage()
Dim Ws As Worksheet
For Each Ws In Worksheets
With Ws.PageSetup
.LeftFooter = ""
.CenterFooter = [C6] & [E100] & [C8]
.RightFooter = "&D &T &P / &N"
End With
Next Ws
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & CheminComplet)
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Pourriez vous svp m'aider à changer la macro ? Merci par avance !

Solution trouvée

Bonjour Magna,

Vous êtes sur un forum d'échange, ne soyez pas égoïste, vous avez la trouvé la solution, alors partagez la SVP

Quelqu'un qui comme vous chercherait la même chose en serait ravi

A+