problème avec complément "saveasPDFandXPS" (résolu)

Sub copiePDF() 'code copie en PDF et classement

Dim sNomDossier As String
Dim sNomFichierPDF As String


    sNomDossier = ThisWorkbook.Path
    
    sNomFichierPDF = Format(Feuil1.Range("l5"), "dddd dd mmmm yyyy") & "   n° " & Range("z58") 'nom du fichier + N° de document
    
     sNomDossier = ThisWorkbook.Path & "\année 2015\" & Format(Feuil1.Range("l5 "), "mmmm yyyy") & "\"
     
    If Len(sNomFichierPDF) > 0 Then
        If NomFichierValide(sNomFichierPDF) Then
            'ActiveSheet
[COLOR=#ff0000]            Feuil1.ExportAsFixedFormat Type:=xlTypePDF, _[/COLOR]
[COLOR=#ff0000]                                            Filename:=sNomDossier & "/" & _[/COLOR]
[COLOR=#ff0000]                                                      sNomFichierPDF & ".pdf" _[/COLOR]
[COLOR=#ff0000]                                                      , Quality:=xlQualityStandard, _[/COLOR]
[COLOR=#ff0000]                                            IncludeDocProperties:=True, _[/COLOR]
[COLOR=#ff0000]                                            IgnorePrintAreas:=False, _[/COLOR]
[COLOR=#ff0000]                                            OpenAfterPublish:=False[/COLOR]
        Else
            Feuil1.Range("l5").Select
            MsgBox "Ce nom de fichier est invalide", vbOKOnly + vbInformation, "Nom de Fichier"
        End If
    End If
 'MsgBox ("Le fichier PDF nommé " & sNomFichierPDF & " à bien été crée dans le répertoire " & sNomDossier)


End Sub