Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Texte As String
If Target.Comment Is Nothing Then
Texte = Format(Range("a" & Target.Row).Value, "DD/MM/YYYY") & Chr(10) & "Hres ou Kms:" & Chr(10) & "essai:" & Chr(10)
With Target
.AddComment ' Création commentaire
.Comment.Shape.Width = 241.5
.Comment.Shape.Height = 99.75
.Comment.Text Texte
End With
Cancel = True
End If
End Sub