Bonjour à tous, en Excel 2003 et XP, ce code tourne bien :
 
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.geny.com/partants-pmu/2017-06-26-saint-cloud...", _
Destination:=Range("a1" ))
.BackgroundQuery = True
.Refresh BackgroundQuery:=False
End With
 
Mais avec Excel 2003 et Windows 10 erreur a la ligne suivante :
 
Refresh BackgroundQuery:=False

Malgré beaucoup de recherches, je n'ai pas trouvé de solution.