afficher ce message

Hello, si ce message doit s'afficher quand dans la même ligne de la cellule saisie et à la colonne x il y a "noire"
Ecris dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim strTitle, strInformation As String
Dim intColumn As Integer

'numéro de colonne
intColumnX = 5

If Ucase(Me.Cells(Target.Row, intColumnX).Value) = "NOIRE" And Target.Column <> intColumnX Then
strInformation = "Ce navire est sur la LISTE NOIRE."
strTitle = "Information"
MsgBox strInformation, vbInformation + vbOKOnly, strTitle
End If
End Sub

Aux fines herbes

merci

mais rien ce passe

merci ça marche