Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PlageCommentee As Range
Dim Cellule As Range
Set PlageCommentee = Cells.SpecialCells(xlCellTypeComments)
For Each Cellule In PlageCommentee
Cellule.Comment.Visible = False
Next
If Not Target.Comment Is Nothing Then Target.Comment.Visible = True
End Sub