Dim Wbs As Workbook
Sheets('resul').Copy
Set Wbs = ActiveWorkbook
ls_nomfic = 'c:\\temp\\essai.xls'
ls_nomfic = Application.GetSaveAsFilename _
(InitialFileName:=ls_nomfic, FileFilter:=ls_filtre, _
FilterIndex:=li_filtre, _
Title:=ls_titre)
If ls_nomfic <> False Then
Wbs.SaveAs ls_nomfic
End If