Private Sub Worksheet_Change(ByVal Target As Range)
Dim RangeSetting As Range, Cell As Range
Dim IndexCouleurRGB As Long, IndexCouleur As Long
Dim MessageAlerte As String
[B][COLOR=red]If Not Intersect(Target, Range("A5:A15")) Is Nothing Then[/COLOR][/B]
[B][COLOR=red]Set RangeSetting = Range("B5:B15")[/COLOR][/B]
With [COLOR=red][B]Target[/B][/COLOR]
If Not .Comment Is Nothing Then .ClearComments
For Each Cell In RangeSetting
If Target.Value = Cell Then
IndexCouleurRGB = Cell.Offset(0, 1).Interior.Color
IndexCouleur = Cell.Offset(0, 1).Font.ColorIndex
MessageAlerte = Cell.Offset(0, 1)
.AddComment
.Comment.Text Text:=MessageAlerte
.Comment.Visible = True
With .Comment.Shape
With .Fill
.ForeColor.RGB = IndexCouleurRGB
.Transparency = 0
End With
With .TextFrame
.AutoSize = True
With .Characters(1, Len(MessageAlerte)).Font
.Name = "Arial"
.Bold = True
.Size = 18
.ColorIndex = IndexCouleur
End With
End With
End With
Exit For
End If
Next
End With
End If
End Sub