Sub EnrXPS()
Dim sNomFichierXPS As String
Application.ScreenUpdating = False
Sheets("Nom de votre feuille").Select
sNomFichierXPS = ThisWorkbook.Path & "\" & "Nom de votre fichier.xps"
ActiveSheet.ExportAsFixedFormat Type:=xlTypeXPS, Filename:=sNomFichierXPS _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Application.ScreenUpdating = True
'Sheets("Nom de la feuille par default").Select (si vous voulez retourner sur votre onglet principal)
End Sub