Pb macro sur passage de VBA en formule

Bonjour en ce matin froid et venteux dans le sud.

J'ai la macro suivante créée en automatique qui copie un morceau de tableau dans un autre à un endroit précis commun au 2 tableaux:

Sub MajHisto()
    Sheets("Jour").Select
    Range("A5:E5", Range("A5").End(xlDown)).Select
    Selection.Copy
    Sheets("Jourhisto").Select
    Txt = "=Address(Match(Jour!a5, Jourhisto!A, 0), 1)"
    MsgBox Txt
    ActiveCell.FormulaR1C1 = Txt
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

La cellule commune recherchée n'est pas trouvée, la formule suivante s'affiche sur la cellule courante::

=ADRESSE(EQUIV(Jour!'a5'; Jourhisto!A; 0); 1)

alors que la formule qui marche est:

=ADRESSE(EQUIV(Jour!$A$5; Jourhisto!A:A; 0); 1)

Il y a quelque chose que je ne maitrise pas.

Peux t-on m'aider?

Bonjour

Merci de joindre ton fichier.

Amicalement

Nad

Voilà le fichier.

Bonjour,

Oui dans ce cas l'enregistreur est un peu "hermétique"

Utilise :

Sub MajHisto()
Dim Pos&
With Worksheets("Jour")
    Pos = Application.Match(.[a5], Worksheets("Jourhisto").[A:A], 1)
    .Range("A5:E5", .[A5].End(xlDown)).Copy
    Worksheets("Jourhisto").Cells(Pos, 1).PasteSpecial Paste:=xlPasteValues
End With
End Sub

Bon Dimanche.

A+

Merci à galopin01

Ce dimanche a été mauvais, le vent m'a emporté quelques tuiles qui m'ont fait un trou dans la toiture.

Cela se termine mieux les pompiers sont intervenus et mon problème de macro est solutionné.

J'aurais mis du temps à trouver tout seul.

Yves