Bonjour
Tu peux mettre ce code dans thisworkbook de visualbasic.
Je n'ai pas mis ni de contrôle, et je range le document dans le même répertoire
A toi d'adapter à ta configuration
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.Copy
Set newclasseur = ActiveWorkbook
With newclasseur
.SaveAs Filename:=ThisWorkbook.Path & "/" & Format(Date, "yy_mm_dd") & ".xlsx"
.Close
End With
End Sub