[B]Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("C7:AJ7"), Range("C18:AJ18"), Range("C37:AJ37"), Range("C48:AJ48")) Is Nothing Then
If Target = "OUI" Then
With Target
.AddComment
.Comment.Text Text:="Indiquer les références inserts et le bon de commande associé"
End With
End If
End If
End Sub[/B]