Utilisation Macro Web

Bonjour,
J'utilise un fichier EXCEL se servant d'une macro pour importer des cours de Bourse à partir d'un site web ( Yahoo Finance )
Depuis 2 jours, celui-ci ne fonctionne plus avec le message : "impossible d'ouvrir..........."
Je pense à une désactivation du site Yahoo.
Serait-il possible de changer l'adresse du site web ? Boursorama, abcbourse ou google finance ?
Je vous remercie par avance pour votre aide
Voici le code
==============================================================================================
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub Cours() 'Base01 = "http://finance.yahoo.com/d/quotes.csv?s=" Base01 = "http://fr.finance.yahoo.com/d/quotes.csv?s=" Base02 = "&f=sl1d1t1c1ohgv&e=.csv" sURL = "" SymString = "" LastRow = Cells(65536, 1).End(xlUp).Row For i = 1 To LastRow SymString = SymString & Cells(i, 1) & " " Next i sURL = Base01 & SymString & Base02 Workbooks.Open sURL Set RngSource = Cells(1).CurrentRegion X = RngSource.Rows.Count Y = RngSource.Columns.Count With ThisWorkbook.Sheets(1) Set RngDest = Range(.Cells(1, 1), .Cells(X, Y)) End With RngDest.Value = RngSource.Value ActiveWorkbook.Close SaveChanges:=False End Sub
==============================================================================================
Bien cordialement
Platypus

PS: je peux poster le fichier sans problème, il n'a rien de confidentiel et peut être utilisé par des personnes intéressées