Macro pour transférer des données

Bonsoir le Forum
je cherche une macro qui va transférer des donneés du feuille WebQuery vert la feuille Accueil on sachant que chaque donne âpres importation ce change
exemple dans fichier ci dessous.

merci d avence

Bonjour

Un essai à tester. Te convient-il ?

Bye !

BONSOIR

Merci bp gmb oui exactement ce que je veux mais la seule bimole que dans la macro

 tabloA = Range("B13:C" & Range("B" & Rows.Count).End(xlUp).Row)
    lndA = 13 
    lndW = 46 ' chaque réunion change le début de la linge

ici la macro fixer sur la line 46 de la feuille WebQuery mais lorsque je importe une autre reunion exemple dans le fichier retour ca change

merci infiniment

Bonjour

Nouvelle version.

Bye !

bonsoir

Encore 1000 Merci gmb

tabloA = Range("B13:C" & Range("B" & Rows.Count).End(xlUp).Row)
    lndA = 13
    lndW = 46
    lndW = Sheets("WebQuery").Range("B:B").Find("Presse", lookat:=xlWhole).Row + 1 ' oui la bien vu le 1re ligne avec recherche "Presse"

vous êtes formidable

cordialement