Problème d'importation de données d'un site web

Bonjour,
Voici mon problème, en utilisant cette macro je n'arrive pas a importer les tableaux de la page web :
Le Paddock: Cote PMU

Sheets("feuil1").Select

With Sheets("feuil1").QueryTables.Add(Connection:="URL;http://www.le-paddock.fr/evolucote/cote-pmu/", Destination:=Sheets("feuil1").Range("A1"))

.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = True
.WebDisableDateRecognition = True
.WebDisableRedirections = True
.Refresh BackgroundQuery:=True



End With
End Sub

Merci pour vos réponses