Suppression de copies de classeur

Sub Macro1()
Dim ch As String 'déclare la variable ch (CHemin d'accès)
Dim nom As String 'déclare la variable nom (nom)
Dim sf As Object 'déclare la variable sf (Système de Fichiers)
Dim d As Object 'déclare la variable d (Dossier)
Dim f As Object 'déclare la variable f (Fichiers)
Dim f1 As Object 'déclare la variable f1 (Fichier 1)
Dim dat As String 'déclare la variable dat (DATe)

ch = ThisWorkbook.Path 'définit la variable ch
nom = ThisWorkbook.Name 'définit la variable nom
Set sf = CreateObject("Scripting.FileSystemobject") 'définit la variable fs (Système de fichiers)
Set d = sf.GetFolder(ch) 'définit la variable d (dossiers d)
Set f = d.Files 'définit la variable f (fichiers de d)
For Each f1 In f 'boucle sur tous les fichiers du dossier d
    If f1.Name <> nom Then 'condition : si le nom du fichier est différent que le nom de ce fichier
        dat = Mid(f1.Name, 7, 7) 'récupère la partie concernant la date
        'si l'anné, le mois et le jour correspondent respectivement à l'anné, le mois et le jour de la date en cours, supprime le fichier
        If Right(dat, 4) = Year(Date) And Mid(dat, 3, 2) = Month(Date) And Left(dat, 2) = Day(Date) Then f1.Kill
    End If 'fin de la condition
Next f1
End Sub