Actualiser donné du web et la copier toutes les heures

Bonsoir,

J'importe des données du web sur une page dans une colonne, ces données sont actualisées toutes les heures.

Je souhaiterais les copier toutes les heures sous forme de tableau, pour ensuite en faire un graphique.

Voici le code que j'ai créer:

Sub Macro3()

    Public heure As Date
    Sub Column()
    heure = Now + TimeValue("00:60:00")
    ActiveWorkbook.Connections("Requête - Requête1").Refresh
    Range("Requête1[Column1.player.might]").Select
    Selection.Copy
    Sheets("Feuil1").Select
    NombreLigne = Application.WorksheetFunction.CountA(Column("2:2"))
    Column ("2" & NombreLigne + 1)
    ActiveSheet.Paste
End Sub

Celui ci ne fonctionne pas au niveau de la recherche de la colonne vide

merci pour votre aide

Problème résolu!

    Sub Lancer()
    Interval = 15
    Application.OnTime Now + TimeSerial(0, 0, Interval), "ExecuterTimer"
    Application.OnTime Now + TimeSerial(0, 0, Interval), "ExecuterTimer2"
End Sub

Private Sub Workbook_Open()
    Lancer
End Sub

Sub ExecuterTimer()
    ActiveWorkbook.RefreshAll
    Sheets("Feuil5").Select
    Range("Requête1[Column1.player.might]").Select
    Selection.Copy
    Sheets("Feuil1").Select
    Range(Columns(1), Columns(12)).Select
    Do While Not (IsEmpty(ActiveCell))
    NbColumn = NbColumn + 1
    Selection.Offset(0, 1).Select
    Loop
    ActiveSheet.Paste
End Sub
Sub ExecuterTimer2()
Lancer
End Sub