Sub EnregistrerSous()
CheminEtFichierEnCours$ = "" ' voir !?
RepFichSVG$ = Application.GetSaveAsFilename(CheminEtFichierEnCours$, fileFilter:="Fichiers Excel (*.xlsx),*.xlsx")
If RepFichSVG$ = "Faux" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=RepFichSVG$, FileFormat:=xlOpenXMLWorkbook
'ActiveWorkbook.Close SaveChanges:=False 'voir ici pour close
End Sub