commentaire conditionnel

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