Copie de commentaires dans une cellule

Bonjour,

Je cherche à copier les commentaires des cellules de la colonne A (si il y en a) dans la colonne B mais en valeurs et non pas en commentaires. (pas de collage spécial)

Cela est t'il possible ?

Bonjour,

Essaye avec ce code :

Sub CopieCommentaires()
    For Each CELLULE In Range("a:a")
        If Not CELLULE.Comment Is Nothing Then Range("B" & CELLULE.Row).Value = CELLULE.Comment.Text
    Next
End Sub

A+

marche nickel

merci

Intéressant.

Et si je souhaite que le commentaire et le contenu de la cellule soient affichés dans une autre cellule d'un autre classeur ?

Y a-t-il une solution ?