Copie d'une cellule dans un commentaire ....

Sub Bouton4_QuandClic()
Dim c As Range
Dim cell As Range
Dim promo As Range
Dim i As Byte
Dim texte As String
Dim premier As Byte


With Sheets('promo')
        Set promo = .Range('a5:a' & .Range('a65536').End(xlUp).Row)
End With

With Sheets('cde')
        'boucle sur chaque cellule de la colonne 1 de la feuille cde
        For Each c In .Range('a7:a' & .Range('a65536').End(xlUp).Row)
                'efface le commentaire
                If Not c.Comment Is Nothing Then c.Comment.Delete
                'boucle sur chaque cellule de la colonne 1 de la feuille promo
                For Each cel In promo
                        If c = cel Then
                                c.Interior.ColorIndex = 6 'couleur de la cellule 6 = jaune
                                'boucle sur chaque cellule de la ligne
                                For i = 1 To Sheets('promo').Cells(cel.Row, 256).End(xlToLeft).Column
                                        'cree le texte du commentaire
                                        If premier = 0 Then
                                                'attention : le 4 est à adapter suivant le numéro de ligne de tes entetes
                                                texte = Sheets('promo').Cells(4, i + 1) & ' : ' & cel.Offset(0, i)
                                                premier = 1
                                        Else
                                                texte = texte & Chr(10) & Sheets('promo').Cells(4, i + 1) & ' : ' & cel.Offset(0, i)
                                        End If
                                Next i
                                'renvoi le texte en commentaire
                                c.AddComment.Text texte
                                texte = ''
                                premier = 0
                        End If
                Next cel
        Next c
End With
                                       
       

End Sub

Cliquez pour agrandir...