Sub AjouterCommentaire()
Dim Template As Variant
Dim Commentaire As Object
Set Commentaire = ActiveCell.Comment
If Commentaire Is Nothing Then
Template = "Client visité :" & vbCrLf & "Date : " & vbCrLf & "Commentaire 1 :" & vbCrLf & "Commentaire 2 :" & vbCrLf & "Commentaire 3 :"
ActiveCell.AddComment Template
ActiveCell.Comment.Visible = True
Else
MsgBox "Il y a déjà un commentaire dans cette cellule."
End If
End Sub