Sub Download()
    
' Call ClearAcc
   Sheets("Cours").Select
    Range("G19:J30").Select
    Selection.ClearContents
'    Range("G19").Select
    
    Sheets("TEMP").Cells.Clear
    
    With Sheets("TEMP").QueryTables.Add(Connection:="URL;https://www.google.com/finance" _
        , Destination:=Sheets("TEMP").Range("$A$1"))
        .Name = "www.google.com"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    
    compteur = 1
    Count = 19                     '  Set line 19 (G19)
    
    For Ligne = 1 To 1000          ' For 1000
        
        If Left(Sheets("TEMP").Cells(Ligne, 1), 14) = "myportf - show" Then
            Line = Ligne
            For i = 1 To 12        ' For 12
            ' Ignore QLGC
If Sheets("TEMP").Cells(Line + i, 1) = "QLGC" Then GoTo Skipit
            Sheets("Cours").Cells(Count, 7) = Sheets("TEMP").Cells(Line + i, 1)
            Sheets("Cours").Cells(Count, 8) = Sheets("TEMP").Cells(Line + i, 2)
            Sheets("Cours").Cells(Count, 9) = Sheets("TEMP").Cells(Line + i, 3)
'            Sheets("Cours").Cells(Count, 4) = Sheets("TEMP").Cells(Line + i, 4).Hyperlinks(1).Address
              If (Sheets("TEMP").Cells(Line + i, 13) = "World markets") Then GoTo Exout
Skipit:
            compteur = compteur + 1
            Count = Count + 1
            Next
            If compteur > 12 Then Exit For   'Limit to 12 Ticker
        End If
    Next
'                   Trier Ticker
'
   Sheets("Cours").Select

    Range("G19:K30").Select
    ActiveWorkbook.Worksheets("Cours").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Cours").Sort.SortFields.Add Key:=Range("G19:G30") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Cours").Sort
        .SetRange Range("G19:K30")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
'                    Copier sur table

'
    Range("H19:H30").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C5:C16").Select
' marque en noir normal
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Font.Bold = Fals
    Sheets("Cours").Select
    Range("E02:H02").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
 

    Range("E2:H2").Select
    Selection.Copy
    Range("B18:E18").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.NumberFormat = "dddd  dd/mmmm/yyyy  hh:mm"
    GoTo Fin
Exout:
MsgBox ("Liste incomplète. Effectuer download manuel")

Fin:
End Sub