Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pl As Range, c As Range, comm As String, i As Long
For i = 1 To 12: comm = comm & vbLf & "Item " & i: Next ' commentaire bidon
If Target.Column = 12 Then
Columns(12).ClearComments
Target.AddComment comm
End If
End Sub