Enregistrement automatique vba

[elguau]

Bonjour le forum,

J'ai lu bcp d'articles sur le forum mais je ne trouve pas ma réponse. J'ao le code suivant, mais je voudrais que la macro tourne tous les jours (bien sur, si le fichier est ouvert, donc de lundi au vendredi) à la même heure et qu'elle finisse avec un enregistrement automtique. J'avoue que je ne conaît pas le code pour faire cela.

Sub bases()

    Sheets("hist").Rows("5:5").Insert shift:=xlDown
    Range("A4:at4").Select
    Selection.Copy
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    ActiveWorkbook.Save
    
End Sub

Merci de votre aide.

David