Correction de formule

Je désire avoir un macro me permettant de coller du contenu internet sur une feuille en particuler. Pour le moment, cette formule fonctionne mais le probleme c'est que le contenu apparait pas sur la feuille désiré. De plus, quand j'utilise le macro plusieurs fois, j'aimerais que les données écrase les anciennes.

**FORMULE DE DEPART**

Sub URL_Static_Query()

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://sepweb01:93/SIAL/PriseService.aspx", _
Destination:=Range("A1"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False

End With

ActiveWorkbook.Save
End Sub


**J'AI ESSAYÉ CECI MAIS IL Y A UN BUG QUAND JE L'ESSAIE**

Sub URL_Static_Query()

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://sepweb01:93/SIAL/PriseService.aspx", _
Destination:=Sheet("IMAGE SIAL À COLLER").Range("A1"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False

End With

ActiveWorkbook.Save
End Sub