Private Sub Vérif()
Dim chemin, fichier As String
chemin = "C:\Ton Chemin\" ' Indique le CHEMIN de ton répertoire
fichier = "Nom du fichier" & Format(Date, "yyyy-mm-dd") & ".xlsm" ' indique le NOM de ton fichier
If VarType(Range("a1")) = VarType(ValPrec) Then _
If ValPrec = Range("a1") Then Exit Sub
ActiveWorkbook.SaveCopyAs chemin & fichier
Range("b1:d1").ClearContents
ValPrec = Range("a1")
End Sub