Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C
Dim Str_Comm As String
If Not (Target_1 Is Nothing) Then
If Target_1.Comment Is Nothing Then
If Txt_Comment <> "" Then GoTo MAJ_Comm
Else
If Target_1.Comment.Text <> Txt_Comment Then GoTo MAJ_Comm
End If
End If
Memorisation:
Set Target_1 = Target
If Target_1.Comment Is Nothing Then
Txt_Comment = ""
Else
Txt_Comment = Target_1.Comment.Text
End If
Exit Sub
MAJ_Comm:
For Each C In ActiveSheet.Comments
Str_Comm = IIf(Str_Comm = "", C.Text, Str_Comm & Chr(10) & Chr(10) & C.Text)
Next C
Range("A1") = Str_Comm
GoTo Memorisation
End Sub