Inscrire la valeur de la derniere cellule selectionnée dans une autre cellule en vba

Bonjour

Je m’entraine en vba en me créant des exemples ,mais voilà mon probléme .
Dans un tableau je recherche dans une colonne la derniére valeur non vide et je voudrais que celle-ci se copie dans la cellue A1 de ma feuille en vba
Mais je bloque
Merci de votre compréhension
Classeur1.xlsm (15,4 Ko)

Bonjour,
Teste ceci

Sub derligne()
  'déclaration des variables
  Dim derniereLigne As Long
  Dim derniereColonne As Integer 'Ne sert à rien pour cette macro
  derniereLigne = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row
  'sélection de la dernière cellule non vide de la colonne F vers A1
  ActiveSheet.Range("F" & derniereLigne).Copy ActiveSheet.Range("A1")
End Sub

Bonjour,
si vous commencez par F5:
vous pouvez facilement faire ceci :

Sub derligne()
Range("f5").Select
Range("A1") = ActiveCell.End(xlDown)
End Sub

merci de votre réponse.je vais continuer à essayer de progresser en vba Heureusement qu il y a des membres qui nous aident

Merci encore

merci de votre réponse.je vais continuer à essayer de progresser en vba le forum est vraiment utile
Merci encore