XL 2019 Vider cellules à une certaine heure

Private Sub Workbook_Open()
    'A l'ouverture du fichier, en automatique,NuméroJour donne le numéro du jour.
    '1 pour lundi, 2 pour mardi ... 6 pour samedi
    Dim NuméroJour%
    NuméroJour = Application.Weekday(Now) - 1
    'Pour chaque jour on lance la macro spécifique
    Select Case NuméroJour
        Case 1: TraitementLundi
        Case 2: TraitementMardi
        Case 3: TraitementMercredi
        Case 4: TraitementJeudi
        Case 5: TraitementVendredi
        Case 6: TraitementSamedi
    End Select
End Sub
Sub TraitementLundi()
    ' Macro à éxécuter le lundi
End Sub
Sub TraitementMardi()
    ' Macro à éxécuter le Mardi
End Sub
Sub TraitementMercredi()
    ' Macro à éxécuter le Mercredi
End Sub
Sub TraitementJeudi()
    ' Macro à éxécuter le Jeudi
End Sub
Sub TraitementVendredi()
    ' Macro à éxécuter le Vendredi
End Sub
Sub TraitementSamedi()
    ' Macro à éxécuter le Samedi
End Sub

Private Sub Workbook_Open()
If Worksheets("Page Accueil").Range("A1") <> Date Then
  If Application.Weekday(Now) > vbSunday And Application.Weekday(Now) < vbSaturday Then TraitementSemaine Application.Weekday(Now)
 Worksheets("Page Accueil").Range ("A1") = Date
End If
End Sub
Sub TraitementSemaine(J As Integer)
Dim Jour(): Jour() = Array("", "Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi") 'je préfère  définir moi même les jour de la semaine
With ThisWorkbook.Worksheets(Jour(J))
    'taitement de longlet!
End With
End Sub

Dim Xls, Classeur ,Fm ,Op
Op=true
const F="C:\Myrep\Prévision Stock TEST.xlsm"
On Error Resume Next
Set Xls = GetObject(, "Excel.application")
If Err <> 0 Then
        Err.Clear
        Op =False
        Set Xls = CreateObject("Excel.application")
End If
 On Error GoTo 0
Xls.visible=true
if  IsOuvert(Xls,F)=false then
        set Classeur= Xls.Workbooks.Open(F)
       If Classeur.ReadOnly=false  Then
         TraitementSemaine Classeur
         Classeur.save
         Classeur.close false
         if op=false then  Xls.Quit
       end if
end if

Function IsOuvert(Xls,F )
For Each C In Xls.Workbooks
  IsOuvert = C.FullName = F
  If IsOuvert Then Exit For
Next
End Function
Sub TraitementSemaine(Classeur)
If Weekday(Now) > 1 Then
     Dim Jour: Jour = Array("", "Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi")
    With Classeur.sheets(Jour(Weekday(Now)))
    .select
  
        With .Range("A1").CurrentRegion
            .Range(.Cells(2, "F"), .Cells(.Rows.Count, "G")) = ""
            .Range(.Cells(2, "J"), .Cells(.Rows.Count, "J")) = ""
            .Range(.Cells(2, "O"), .Cells(.Rows.Count, "AZ")) = ""
        End With
    End With
End If
End Sub