Lancer macro pour plusieurs feuille

Bonjour,

J'ai la macro suivante qui pour enregistre une feuille excel en PDF en fonction d'une liste de personne en A18:A43.

Pour le moment je dois lancer cette macro sur trois feuilles différente (Cover,Cover(2) et Cover HBU). mais j'aimerais bien ne devoir la lancer que une fois.

Pouvez-vous m'aider svp ?

Merci

Sub PARIS_PRINT_COVER()

'

' MacroPDF_CoverParIS Macro

''

Dim pdffilename As String

Dim i As Long

For Each Cel In Range("A18:A43")

If Cel.Value = "" Or Cel.Value = 0 Then Exit Sub

Cel.Select

Selection.Copy

Range("C11").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

pdffilename = "_0Cover"

pdffilename = Range("d11") & pdffilename & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"V:\Reporting\PARIS 19_20\112019 - Copy for Cedric\Diffusion ParIS\Test\" & pdffilename, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

False

Next Cel

'

End Sub

Bonjour

Il te suffit de créer une autre boucle For avec tes feuilles nommées avant ta boucle de traitement

For - avec les feuilles

ton code actuel

Next

etc.