Déplacement en verticale dans une macro

Bonjour,

J'ai créé une macro Excel qui me permet de récupérer les données d'un site internet. Ma macro copiée et collée à la chaîné les données. Sauf que mon problème est que je souhaiterais que les données se copier-colle en horizontale et non en verticale actuellement. Quelle est la solution que je peux apporter à mon problème ?

Le code en question:

Sub Macro1()

'

' Macro1 Macro

'

'

Range("$A$2").Select

ActiveCell.FormulaR1C1 = ""

Range("$A$3").Select

For i = 1 To 31

With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://www.meteociel.fr/temps-reel/obs_villes.php?code2=7005&jour2=" & i & "&mois2=3&annee2=2015" _

, Destination:=Range("A3"))

.Name = "obs_villes.php?code2=7005&jour2=3&mois2=3&annee2=2015"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.WebSelectionType = xlSpecifiedTables

.WebFormatting = xlWebFormattingNone

.WebTables = "10"

.WebPreFormattedTextToColumns = True

.WebConsecutiveDelimitersAsOne = True

.WebSingleBlockTextImport = False

.WebDisableDateRecognition = False

.WebDisableRedirections = False

.Refresh BackgroundQuery:=False

End With

Next

End Sub

Merci d'avance de votre aide.

Bonjour,

Essaye le code en changeant la partie "Destination" :

With ActiveSheet.QueryTables.Add(Connection:= _
 "URL;http://www.meteociel.fr/temps-reel/obs_villes.php?code2=7005&jour2=" & i & "&mois2=3&annee2=2015" _
 , Destination:=Cells(3, i))

Malheureusement cela me copier-coller toujours les tableaux à l'horizontale et non la verticale

Bonsoir,

Joins-nous un petit fichier avec la macro pour tester.

Voici ci-joint l'excel en question.

Bonsoir

A tester

Sub Macro1()
'
' Macro1 Macro
'

  Cells.Clear
  For i = 1 To 31
    With ActiveSheet.QueryTables.Add(Connection:= _
                                     "URL;http://www.meteociel.fr/temps-reel/obs_villes.php?code2=7005&jour2=" & i & "&mois2=3&annee2=2015" _
                                     , Destination:=Range("A" & Rows.Count).End(xlUp).Offset(1, 0))    'Range("$A$3"))
      .Name = "obs_villes.php?code2=7005&jour2=3&mois2=3&annee2=2015"
      .FieldNames = True
      .RowNumbers = False

Merci cela fonctionnement vraiment bien. Thx