Sub GetData()
'Variables
Dim DataSheet As Worksheet
Dim WBsrc As Workbook, WBdest As Workbook
Dim strURL As String, endDate As String, startDate As String
Dim fromCurr As String, toCurr As String, CellDest As String
Dim LastRow As Integer, ListeDevises As Integer
Dim i As Integer, ColOffset As Integer
'Initialisation
Set WBdest = ThisWorkbook
Sheets("Liste").Select
startDate = Format(Range("B1"), "yyyymmdd")
endDate = Format(Range("B2"), "yyyymmdd")
Sheets("Data").Cells.Clear
ListeDevises = Range("A65536").End(xlUp).Row
ColOffset = 0
'Boucle sur les devises
For i = 4 To ListeDevises
fromCurr = Range("A" & i)
toCurr = Range("B" & i)
'Lien pour recup les infos
strURL = "http://stooq.com/q/d/l/?s=" & fromCurr & toCurr & "&d1=" & startDate & "&d2=" & endDate & "&i=d"
'Recuperation des données
Set WBsrc = Application.Workbooks.Open(strURL, , True)
WBdest.Sheets("Data").Range("A1").Offset(0, ColOffset) = "From " & fromCurr & " to " & toCurr
WBsrc.Sheets(1).Range("A1").CurrentRegion.Copy WBdest.Sheets("Data").Range("A1").Offset(1, ColOffset)
WBsrc.Close
ColOffset = ColOffset + 6
Set WBsrc = Nothing
Next i
Set WBdest = Nothing
End Sub