Re
si l'on veut éviter la boucle :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Comment
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set c = Target.Comment
If Not c Is Nothing Then Target.Comment.Visible = True
End Sub
@+