Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [I:I])
If Target Is Nothing Then Exit Sub
On Error Resume Next 'si pas de commentaire ou si Target = ""
For Each Target In Target 'pour le cas d'entrées multiples
Target.AddComment Cells(Application.Match(Target, [I:I], 0), "I").Comment.Text
Next
End Sub