Supression d'ancienne sauvegarde

Bonjour,

J'AI CET ALGO POUR FAIRE MES ENREGISTREMENT

a chaque sauvegarde c'a m'inscrit une ligne supplémentaire

est il posible d'y ajouter une ligne qui supprimerait toutes les sauvegardes de plus de 2 jours?

Sub enregistrer()
'
Dim start As Single
 

start = Timer
[m1] = Now()
 

Application.DisplayAlerts = False
If Len(Dir("C:\loto\jeux loto", vbDirectory)) > 0 Then
    ActiveWorkbook.SaveAs Filename:="C:\loto\jeux loto\" & ActiveWorkbook.Name, CreateBackup:=False
End If
If Len(Dir("g:\loto", vbDirectory)) > 0 Then
    ActiveWorkbook.SaveAs Filename:="G:\loto\" & ActiveWorkbook.Name, CreateBackup:=False

End If
If Len(Dir("E:\loto", vbDirectory)) > 0 Then
    ActiveWorkbook.SaveAs Filename:="E:\loto\" & ActiveWorkbook.Name, CreateBackup:=False
End If
If Len(Dir("F:\loto", vbDirectory)) > 0 Then
    ActiveWorkbook.SaveAs Filename:="F:\loto\" & ActiveWorkbook.Name, CreateBackup:=False
End If
    ActiveWorkbook.SaveAs Filename:="C:\Users\jacques\onedrive\loto\jeux loto\ " & ActiveWorkbook.Name, CreateBackup:=False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

MsgBox "durée du traitement: " & Timer - start & " secondes"

End Sub
merci d'avance

Windows / Chrome 121.0.0.0

vous êtes super!
merci à tous