Sub AjouteCommentaire()
Dim c As Range
'on efface les commentaires de la colonne C
Columns("C:C").ClearComments
'pour toutes les cellules de la plage C2:C dernière cellule remplit de la colonne C
For Each c In Range("I8", Range("I65536").End(xlUp))
'pour la cellule se trouvant sur la meme ligne (le 0 du offset)
'et 2 colonnes avant (le -2 du offset) la cellule de la colonne C
With Cells(c.Row, 3)
If c.Value <> "" Then
'on ajoute un commentaire avec le texte
.AddComment (c.Value & Chr(10) & c.Offset(0, 1).Value & Chr(10) & c.Offset(0, 2).Value)
'on met a visible le commentaire
.Comment.Visible = True
'on selectionne la fenetre du commentaire
.Comment.Shape.Select
'on ajuste automatiquement la taille de la fentre du commentaire
Selection.AutoSize = True
'on met a non visible le commentaire
.Comment.Visible = False
End If
End With
Next c
End Sub