Enregistrer a aujourdhui() -1

bonjour a tous je me trouve devant un probleme, je voudrais enregistrer un fichier via une macro a aujourdhui() -1.
Je n'arrive pas a trouver de post a ce sujet.
Merci pour votre aide.

ci-dessous le code de ma macro:
si je met -1 derriere la ligne en rouge cela ne fonctionne pas
je voudrais aussi le meme resultat dans msgbox

MakeDirEx ("C:\RECETTES PEAGE\")
Application.DisplayAlerts = False

ActiveSheet.Select
CmdPrint.Visible = False
CmdSavRapport.Visible = False
CmdNewRapport.Visible = False

ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\RECETTES PEAGE\" & ActiveSheet.Name & " " & "DU" & " " & Format(Date, "dd-mm-yy")

ActiveWorkbook.Close
CmdPrint.Visible = True
CmdSavRapport.Visible = True
CmdNewRapport.Visible = True

Application.DisplayAlerts = True

MsgBox "RAPPORT DU:" & " " & Date & " " & "Sauvegardé!", vbInformation, ThisWorkbook.Name


End Sub