importer des datas periodiques depuis le web

[COLOR=BLUE]Private[/COLOR] [COLOR=BLUE]Sub[/COLOR] CommandButton1_Click()
    [COLOR=BLUE]Dim[/COLOR] requete [COLOR=BLUE]As[/COLOR] QueryTable
    [COLOR=BLUE]Dim[/COLOR] cDest [COLOR=BLUE]As[/COLOR] Range
    [COLOR=BLUE]Set[/COLOR] cDest = Range([i]"A1"[/i])
    [COLOR=BLUE]On[/COLOR] [COLOR=BLUE]Error[/COLOR] [COLOR=BLUE]Resume[/COLOR] [COLOR=BLUE]Next[/COLOR]
    [COLOR=BLUE]Set[/COLOR] requete = [COLOR=BLUE]Me[/COLOR].QueryTables(1)
    [COLOR=BLUE]If[/COLOR] [COLOR=BLUE]Not[/COLOR] requete [COLOR=BLUE]Is[/COLOR] [COLOR=BLUE]Nothing[/COLOR] [COLOR=BLUE]Then[/COLOR]
        [COLOR=BLUE]With[/COLOR] requete
            [COLOR=BLUE]Set[/COLOR] cDest = .ResultRange.Offset(.ResultRange.Rows.Count + 3).Resize(1, 1)
            .Delete
        [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
    [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]If[/COLOR]
    [COLOR=BLUE]On[/COLOR] [COLOR=BLUE]Error[/COLOR] [COLOR=BLUE]GoTo[/COLOR] 0
    [COLOR=BLUE]Set[/COLOR] requete = [COLOR=BLUE]Me[/COLOR].QueryTables.Add([i]"URL;http://www.excel-downloads.com/forum"[/i], cDest)
    [COLOR=BLUE]With[/COLOR] requete
        .Name = [i]"forumXLD"[/i]
        .WebFormatting = xlNone
        .WebSelectionType = xlSpecifiedTables
        .WebTables = [i]"9"[/i]
        .Refresh
    [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]