Re
Quand j'ai voulus essayer il m'a dit qu'il y avais une erreur avec
"ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & nom & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True"
et il m'ouvre un autre...