Sub Import()
Dim F As Worksheet, hier As Byte
Set F = Sheets("PRONO") 'à adapter
Application.ScreenUpdating = False
On Error Resume Next 'si le fichier n'est pas trouvé
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")
If hier = 0 Then If IsError(.Name) Then hier = 1: GoTo 1 'essai sur le fichier d'hier
.Sheets(1).UsedRange.Copy F.[A1] 'copier-coller
.Close
End With
End Sub