Sub MettreCommentaire()
Dim plage As Range
Dim c As Range
Dim derLigne As Long
With ActiveSheet
derLigne = .Range("[COLOR="red"]J[/COLOR]" & .Rows.Count).End(xlUp).Row
Set plage = .Range("[COLOR="red"]J1:J[/COLOR]" & derLigne)
End With
For Each c In plage.Cells
If c.Row > 1 Then
With c
.ClearComments
.AddComment Text:=.Text
.Comment.Shape.Height = 188
.Comment.Shape.Width = 255
.ClearContents
End With
End If
Next c
End Sub