Range("A1:H69").Select
With ActiveSheet
fichier = "\" & Range("E7") & " Commande du " & Format([f5], "ddmmyyyy") & " " & Range("K3") & ".pdf"
dossier = "C:\Users\XXXXX\Documents\ETC"
chemin = dossier & fichier
End With
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True