[ J'abandone le fil.. ] Bug sur un fichier HTLM d'importation

Sub Import()
Dim F As Worksheet, hier As Byte
Set F = Sheets("PRONO") 'à adapter
Application.ScreenUpdating = False
1 F.Cells.Delete 'RAZ
With Workbooks.Open("http://trading-courses.ovh/main_root/download_center/index_payant.php?excel-" _
  & Format(Date - hier, "dd-mm-yyyy") & ".xlsx")
  .Sheets(1).UsedRange.Resize(, 41).Copy F.[A1] 'copier-coller
  .Close
End With
If hier = 0 And Not F.[A1] Like "Course*" Then hier = 1: GoTo 1 'essai sur le fichier d'hier
End Sub