Option Explicit
Private oldComment As String
Private Sub CommentChange(oldCommentText As String, newCommentText As String)
Range("A1:B1").Value = Array("Ancien commentaire: ", oldCommentText)
Range("A2:B2").Value = Array("Nouveau commentaire: ", newCommentText)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Range("A3")
If Not .Comment Is Nothing Then
If .Comment.Text <> oldComment Then
Call CommentChange(oldComment, .Comment.Text)
oldComment = .Comment.Text
End If
End If
End With
End Sub