Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
[T52].AddComment
[T52].Comment.Text [texte]
End Sub
Sub CreerCommentaire()
Dim t As String
t = "Les 20h ont été réalisé par X, les 18h par Y, les 52.30 par Z"
[T52].ClearComments
[T52].AddComment t
ThisWorkbook.Names.Add "texte", t 'nom défini
End Sub