Copier des commentaires

Bonjour
Un exemple d'application:
Supposons que l'on veuille récupérer les commentaires des cellules de B2 à Bn
et afficher le relevé de tous les commentaires dans la cellule D7

Sub RecupCommentaires()
    Application.ScreenUpdating = False
    Commentaire = ""
    TotalComment = ""
    DerniereLigne = Range("B2").End(xlDown).Row
    For Each Item In Range("B2:B" & DerniereLigne)
        Item.Select
        If Item.Value = "" Then GoTo Suivant
        Commentaire = Item.NoteText
        TotalComment = TotalComment & Chr(30) & Commentaire
Suivant:
    Next Item
    Range("D7").Value = TotalComment
End Sub

A adapter suivant vos besoins
cdlt

Ta question se prête à diverses interprétations ! Elle peut signifier
- Je recherche comment copier plusieurs commentaires et les insérer tous comme commentaire unique d'une même cellule
- Je recherche comment copier plusieurs commentaires et les insérer tous comme données dans une cellule
- Je recherche comment, pour plusieurs cellules à la fois, copier leur commentaire et les insérer dans les cellules correspondantes
... et peut-être encore autre chose.
Alors montre-toi plus précis, afin d'obtenir une réponse fiable.
Mais à tout hasard, pour copier le commentaire d'une cellule dans une autre cellule sans en modifier les données, on fait Copier, on va dans la cellule-cible, et on fait Collage spécial/Commentaires

Dans l'attente ...