VBA copier coller en fonction d'une date

Bonjour,

Je suis sur un fichier et je suis bloquée depuis 3 jours Je commence à désespérer...

En fait, je fais des extractions tous les jours afin de reccueillir des informations.

Sur mon fichier j'ai 3 onglets :

1er Onglet "Extraction"; je copie colle l'extraction que je fais le jour J

2ème Onglet "Alimentation" : formule toute simple pour ne retenir que les données qui m'importent.

=> A8 : Date J

=> B8:H8 : les chiffres que j'ai besoin

3ème onglet : tableau annuel

Donc, via l'extraction, je séléctionne la plage B8:H8 de l'onglet 'alimentation' que je colle sur mon tableau annuel en D:J. Mais je colle en cherchant la date J sur la colonne B du tableau annuel.

Je connais assez bien EXCEL pour des trucs assez simple mais VBA....

En parcourant les forum, j'ai pu avoir qqes informations et écrire le code mais ça ne marche pas...

Sub bou()

Set wsd = Worksheets("alimentation")

Set wsc = Worksheets("Suivir")

Set re = wsc.Column("B:B").Find(wsd.Range("A8"), lookat:=xlWhole)

If Not re Is Nothing Then

wsd.Range("B8:H8").Copy

wsc.Cells(re.Rows, 2).PasteSpecial Paste:=xlValues

End If

End Sub

Qu'en pensez vous?

Merci de votre aide

Bonjour. Bienvenue sur le Forum

Comme souvent, sans fichier, le nombre de réponses est pour le moins aléatoire

Cordialement

Oui ! désolée ! en pièce jointe, le fichier exemple

Merci

Bonjour

Sub Maj()
Dim i As Integer
    Range("B8:H8").Select
    Selection.Copy
    Sheets("Suivi").Select
    i = Application.WorksheetFunction.Match(Sheets("alimentation").Range("A8"), Sheets("Suivi").Range("B:B"), 0)
    Range("B" & i).Offset(0, 2).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        ActiveCell.Select
    Application.CutCopyMode = False
End Sub

Cordialement

Merci Amadéus ! La macro marche bien ! j'ai juste ajouter :

Sheets("alimentation").Select

au début de la macro ! Et tout marche bien !

Merci