FichierEnregistrerSous = Application.GetSaveAsFilename(NomEtChemin, _
fileFilter:='Fichiers Microsoft Excel (*.xls), *.xls')
ActiveWorkbook.SaveAs Filename:=FichierEnregistrerSous, FileFormat:=xlNormal, _
Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=True