Dim url As String, dates As String
Dim ws As Worksheet, qt As QueryTable, 'connec As WorkbookConnection
Set ws = Sheets(1)
ActiveWorkbook.Connections("Connexion").Delete
ActiveWorkbook.Names("import").Delete
Range("J4:P12").Select
Selection.ClearContents
dates = Format(Now(), "YYYY-MM-DD")