Copier le contenu d'une cellule dans un commentaire en macro

Bonsoir à tous,

J'ai vraiment besoin de votre aide. Je travaille sur un fichier excel que je dois l'optimiser au maximum et j'aurai besoin d'une macro pour pouvoir copier le contenu d'une cellule dans un commentaire. Je suis debutant en macro. Voici ce que j'ai trouvé comme macro sur internet pour m'inspirer mais je n'ai jamais réussis à faire ce que je voulais avec :

Sub Ajout_de_valeur_cellule_dans_commentaire()
Dim CelS As Range, CelDest As Range, AncienCom As Variant

Set CelDest = ActiveSheet.Range("B6")

With CelDest
On Error Resume Next
.Comment.Delete
.AddComment
.Comment.Shape.TextFrame.AutoSize = True
.Comment.Text CStr(CelDest)
End With

End Sub

PS : Si cela peut aider...


je vous remercie d'avance pour l'aide que vous pouvez m'apporter.

Bonne soirée à tous.