Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Column = 1 Then
Range("A1:A100").ClearComments
Target.AddComment
With .Comment.Shape
.TextFrame.Characters.Font.ColorIndex = 2
.TextFrame.Characters.Font.Bold = True
.AutoShapeType = 5
.Width = 200
.Height = 20
.IncrementLeft -Target.Width
.IncrementTop Target.Height * 2
.Fill.ForeColor.RGB = vbRed
.Fill.OneColorGradient 3, 1, 0.27
.TextFrame.Characters.Font.Color = vbWhite
End With
.Comment.Text Text:="Attention !! Format de saisie :"" --/--/20--"""
Target.Comment.Visible = True
Else
Range("A1:A100").ClearComments
End If
End With
End Sub