problème au niveau du macro impression

bonsoir à tous,

je suis entrain de réaliser un fichier excel où j'ai plusieurs onglets.
j'ai utiliser le travail de PascalXLD (merci encore)
Lien supprimé
pour des impressions.
j'ai fait quelque modifications pour que cela s'adapte à mon projet.
cependant je bloque sur une nouvelle macro :

Private Sub CommandButton5_Click()

Dim x As Byte
Dim verif As Boolean
verif = False

For x = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(x) = True Then
verif = True
Sheets(Me.ListBox1.List(x)).Activate
SavePdf
End If
Next
If verif = False Then MsgBox "Pas de selection pour impression"
End Sub

en fait je voudrais que cette macro (lancé via le bouton new version du userform imprimer) lance ma seconde macro, ici SavePdf (qui imprime en pdf de façon spécifique) pour tous mes sélection.
le problème est que dès qu'il au moins deux onglets sélectionnés : ERREUR
par contre aucun problème si je le fais un par un.

Pour infos, à la base j'avais l'écriture suivante :
Sheets(Me.ListBox1.List(x)).PrintOut , copies:=1, ActivePrinter:="PDFCreator"
Mais elle ne convient plus à mon projet

En espérant avoir été clair.
Merci d'avance

Cordialement
Yannick

PS : le bouton Données pr save déterminer le nom de l'onglet et le chemin d'accès pour enregistrer!!!!!!!!!!