Erreur 400 sur exécution macro spécifique

Bonjour à tous,

J'ai un fichier contenant 2 macro, une pour un tri de tableau qui fonctionne très bien et l'autre pour l'enregistrement en PDF de 2 feuilles spécifiques c'est là que l'erreur 400 apparaît

Sub Macropdf_Invite()
Dim nomFichier As String

'on affiche une boîte de dialogue invitant à entrer un nom de fichier
nomFichier = Application.InputBox("Entre un nom de fichier", "Nom fichier", Type:=2)

If VarType(nomFichier) = vbBoolean Then Exit Sub

   ThisWorkbook.Sheets(Array("Matrice", "Clients")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\%Username%" & "\Desktop\" & nomFichier & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

Par avance

Merci

bonjour,

essaie cette instruction

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\" & environ("username") &  "\Desktop\" & nomFichier & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

Ça fonctionne nickel

MERCI