Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Comm$, CommMAJ$
If Target.Address = "$K$18" Then
With ActiveCell
On Error Resume Next
Comm = .Comment.Text
.ClearComments
CommMAJ = CommMAJ & Comm & vbCrLf & InputBox("Saisir commentaires Suivi, svp.") & vbCrLf & Application.UserName & Format(Date, "\:dd/mm")
.AddComment
.Comment.Visible = True
.Comment.Shape.Height = 250
.Comment.Shape.Width = 250
.Comment.Text Text:=CommMAJ
End With
End If
End Sub