XL 2013 Impression PDF d'onglets sélectionner à l'aide d'un UserForm

Bonjour,
Novice en VBA, j'ai créé un code afin d'imprimer papier des onglets de mon xls que je sélectionne à l'aide d'un UserForm (case à cocher), ci dessous le code :
Private Sub CmdImprimer_Click()

Application.ScreenUpdating = False
For i = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(i) = True Then
Application.StatusBar = "Impression: " & LbFeuilles.List(i)
Application.DisplayAlerts = False
Sheets(LbFeuilles.List(i)).PrintOut

Else
End If
Next i
Application.DisplayAlerts = True
Application.StatusBar = False
Application.ScreenUpdating = True

End Sub

Mon UserForm :


Je cherche à faire la même chose avec une impression en PDF dans un répertoire et nom de fichier bien définis. Cependant le code Bug et n'arrive pas à comprendre mon erreur. Ci dessous le code (en jaune la partie qui BUG) :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(i) = True Then
Application.StatusBar = "Impression: " & LbFeuilles.List(i)
Application.DisplayAlerts = False

Dim chemin As String, fichier As String
chemin = ThisWorkbook.Path & Application.PathSeparator
fichier = " CR Surveillance - Marché N°" & Sheets("Synthèse du Rapport").Range("C11") & "_" & Format(Date, "dd-mm-yyyy")

Sheets(LbFeuilles.List(i)).ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & fichier _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Else
End If
Next i
Application.DisplayAlerts = True
Application.StatusBar = False
Application.ScreenUpdating = True

End Sub

J'ai essayé avec un seul onglet sélectionné mais c'est la même chose. Je pensais que cela venait du MultiPDF à créer.
Si vous avez une solution, je suis preneur.
Merci les experts
PAPITO