Sub AjouteCommentaire()
[A:A].ClearComments
For Each c In Range("C2", [c65000].End(xlUp))
c.Offset(0, -2).AddComment c.Value
c.Offset(0, -2).Comment.Visible = True
c.Offset(0, -2).Comment.Shape.Select
Selection.AutoSize = True
c.Offset(0, -2).Comment.Visible = False
Next c
End Sub