Adapter une macro

Adapter une macro de récupération de commentaire

Bonjour,
Je souhaiterais adapter le code ci-dessous.
Je n'y connais que trés peu de chose en VBA et j'aimerais en fait pouvoir choisir la cellule source (ici C4 ) et la cellule de destination (exemple A7) par des selections de cellule.
Comment faire ?

par avance merci

'fonction qui lit le contenu d'un commentaire d'une celllule
Function Lirecommentaire(Cellule As String) As String
Lirecommentaire = Range(Cellule).NoteText
End Function

'permet de récupérer un commentaire d'une cellule vers une autre
Sub test()
With ActiveSheet.Range("C4")
.AddComment
.Comment.Text Text:=Lirecommentaire("Feuil1!A7")
End With
End Sub