Dim fichier As String
Sheets("Imp").Select
fichier = "h:\ Sauvegarde\" & [l7].Value & "_" & [o13].Value & ".xls"
ActiveWorkbook.SaveAs Filename:=fichier, FileFormat:=xlExcel8
fichier = "h:\ Sauvegarde\" & [l7].Value & "_" & [o13].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
ignorePrintAreas:=False
Sheets("Imp").Select