Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)If ActiveCell.Comment Is Nothing Then
Cancel = True
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=Range("b1").Value
Else:
ActiveCell.ClearComments
If ActiveCell.Comment Is Nothing Then
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=Range("b1").Value
End If
End If
End Sub
Private Sub Worksheet_Deactivate()
Sheets("feuil1").Cells.ClearComments
End Sub