Report de valeur personnalisée de la dernière cellule d'une colonne

Bonjour,

je cherche à reporter la dernière valeur d'une cellule sur un autre onglet.

les formules "=RECHERCHE" ne fonctionnant pas dans mon cas du à valeur personnalisé ("6.20" par exemple), je souhaite passer par une macro.

Pour l'heure j'ai trouvé ceci, cependant là encore je reporte la valeur 6 et non 6.20.

Sub DerniereCelluleDeLaColonne()
'
'Retourne la valeur de la dernière cellule de la colonne B
'
    Dim DerniereCellule As String
    With ActiveSheet
        DerniereCellule = .Cells(.Rows.Count, "B").End(xlUp).Row
    End With
 '
 'Recopier la valeur dans une nouvelle cellule
 '

    Sheets("PAGE DE GARDE").Range("E44").Value = DerniereCellule

End Sub

je pense devoir passer par une fonction .copy mais comment le coder?

Bonjour,

Essaie ainsi :

Sub DerniereCelluleDeLaColonne()
Dim DerniereCellule As Long, Cell As Range
    With ActiveSheet
        DerniereCellule = .Cells(.Rows.Count, "B").End(xlUp).Row
        Set Cell = .Cells(DerniereCellule, 2)
    End With
    Worksheets("PAGE DE GARDE").Range("E44").Value = Cell.Value
End Sub

Merci, j'essaie cela dès que possible