Commentaire / VBA / EXcel

Bonjour,

Je cherche a copier le contenu d'un commentaire dans une cellule.
L'idéal serait une formule de ce genre car j'en ai pleins dans mon classeur.

J'ai un truc du genre ou je ne dois pas etre tres loin ( actuellement ca copie le commentaire dans un commentaire )

Merci a l'ame ou aux ames charitables qui vont m'aider.

Function CopierAvecCommentaire(source As Range)
Application.Volatile
AdrAppelFn = Parent.Caller.Address()
Range(AdrAppelFn).ClearComments
Range(AdrAppelFn).AddComment
'Range(AdrAppelFn).Comment.Text Text:=source.Comment.Text
'Cells(AdrAppelFn) = source.Comment.Text
Range(AdrAppelFn).Comment.Shape.Height = source.Comment.Shape.Height
Range(AdrAppelFn).Comment.Shape.Width = source.Comment.Shape.Width
Range(AdrAppelFn).Comment.Visible = source.Comment.Visible
CopierAvecCommentaire = source.Value
End Function


MERCI

PS : j'ai excel 2003