Copier une cellule d'une feuille à l'autre

Bonjour, mon problème est dans le titre.

'J'ai deux feuilles à mon classeur: Feuille "Outils" et feuille "Maison"

'Avec ceci je trouve la dernière ligne de la feuille "Outils" dans laquelle je me trouve.

Dim DerniereLigne as long

DerniereLigne=Range("a65000").End(xlUp).Row

'Je récupère la valeur dans la colonne "A"

Range("A" & DerniereLigne ).Select

Maintenant comment j'écris mon code pour aller porter cette valeur dans la dernière ligne de la colonne "A" de la feuille "Maison"

Merci à l'avance

Jujube

Bonsoir,

avec:

Sub essai()
Sheets("Maison").Range("A65536").End(xlUp)(2) = Sheets("Outils").Range("A65536").End(xlUp)
End Sub

Amicalement

Claude

Merci Claude, tu m'as dirigé vers la bonne voie.

Jujube

Prends le bon réflexe de solder les postes, c'est ici