Coller dans la cellule active depuis la même cellule d'une autre feuille

Bonjour,

Je ne trouve pas de réponse à ma question sur le net donc je me (re)tourne vers vous

J'ai 2 feuilles dans mon classeur.

J'aimerais que l'utilisateur puisse copier coller dans la cellule active (par exemple A5) le texte qui est dans la même cellule de l'autre feuille.

Pour bien m'exprimer j'ai écrit ce "code" totalement faux mais qui permettra peut-être de mieux comprendre ce que je veux faire

Sub TEST2()

Dim A As Worksheet

Dim Ab As Worksheet

Dim r1 As Range

Dim r2 As Range

Set A = ActiveWorksheet

Set Ab = Worksheets("Feuil2")

Set r1 = A.Sheets("Feuil1").Range("activecell")

Set r2 = Wb.Sheets("Feuil2").Range("samecell")

r2.Copy r1

End Sub

Merci d'avance

En plus concret:

Sub TEST2()

Dim A As Worksheet

Dim Ab As Worksheet

Dim r1 As Range

Dim r2 As Range

Set A = Worksheets("feuil1")

Set Ab = Worksheets("feuil2")

Set r1 = ActiveCell

Set r2 = Worksheets("feuil2").Range("???")

r2.Copy r1

End Sub

Ou le Range ("???") serait la même que le Range de la cellule active dans A

Merci d'avance

Après avoir compilé les aides que j'ai trouvé sur le net sur les différentes étapes de la macro, j'ai trouvé qu'Il suffisait de remplacer range par "cells" et determiner les valeurs de ligne et colonne par activeCell

Voici ce que ca donne pour qui ca intéresse:

Sub TEST2()

Dim A As Worksheet

Dim Ab As Worksheet

Dim r1 As Range

Dim r2 As Range

Dim val1 As Integer, val2 As Integer

val1 = ActiveCell.Row

val2 = ActiveCell.Column

Set A = Worksheets("final")

Set Ab = Worksheets("resume")

Set r1 = ActiveCell

Set r2 = Worksheets("resume").Cells(val1, val2)

r2.Copy r1

End Sub

Voilà