Sub coursdujour()
Dim i, j, k, colonne, rang As Integer
Dim nom_action, code_isin As String
j = 0
k = 1
Sheets("codeAction").Activate 'on se place sur la page codeAction
nom_action = Cells(k, 3) 'reçoit le nom de la premiere action
code_isin = Cells(k, 2)
While nom_action <> "" 'tant qu'il n'y a pas de case vide
i = 0
Sheets("temporaire").Activate 'va sur la page temporaire
ActiveSheet.Cells.Clear 'clear la page
With ActiveSheet.QueryTables.Add(Connection:= _
"URL; , Destination:=Range("$A$1"))
.Refresh BackgroundQuery:=False
End With
End Sub