Dim c As Range
Dim Moi As String
' ************************
Moi = "SOF" ' À renseigner avec ses initiales
' ************************
For Each c In Selection
With c
[COLOR=Red]If . value <> "None Then[/COLOR]
If .Comment Is Nothing Then ' Le commentaire n'existe pas, on le crée
.AddComment
.Comment.Visible = False
.Comment.Text Text:=Moi & " (" & Date & ") :" & Chr(10) & "Contract = " & c.Value
.ClearContents
Else ' Un commentaire existe déjà, on ajoute alors le nouveau à la fin de celui existant
.Comment.Text Text:=.Comment.Text & _
Chr(10) & Moi & " (" & Date & ") :" & _
Chr(10) & "Contract = " & c.Value
End If
[COLOR=Red]End if[/COLOR]
End With
Next c
End Sub