Extraire commentaire vers cellule

Bonjour à tous ,

Je cherche un bout de code à intégrer à ma macro qui me permet de récupérer le commentaire d'une cellule préalablement activé dans la feuille ("dépt 10") et la copier en format texte dans la cellule (H2) de la feuille( table)

Merci de votre aide

Salut

essayé ce la

If Not ActiveCell.Comment Is Nothing Then _
Sheets("table").Range("H2").Value = ActiveCell.Comment.Text

Ma macro se termine sans erreur mais j'ai pas le commentaire en "h2"

J'ai joint le fichier se sera plus facile à comprendre

Je début en VBA donc je prend tous les bons conseils et les critiques .

Rechercher des sujets similaires à "extraire commentaire"