Sub InsertionComment()
 Dim MyCmt As String
 Dim LaCell As Range

 Set LaCell = ActiveCell
 MyCmt = InputBox("Inscrivez Nom, N° de Ticket, Commentaire ")
 On Error Resume Next

 With LaCell
 .AddComment
With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 12611584
        .TintAndShade = 0
        .PatternTintAndShade = 0

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    
 With .Comment
 .Visible = True
 .Text Text:=MyCmt
 ActiveCell.Comment.Visible = False
 End With
 End With
 End With
 End With
    Selection.Merge
 End Sub