Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Integer
Dim colonne As Integer
ligne = ActiveCell.Row
colonne = ActiveCell.Column
If colonne = 8 And ligne > 11 Then
If Target.Value Like "*COUT*" Then
MsgBox ("attention")
End If
End If
End Sub