Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$5" Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target <> "" Then
Dim trouvé As Boolean
tabloCoul = Array(255, 14857357, 12379352)
With Sheets("Origine")
For col = 3 To 5
ligne = Application.Match(Target, .Columns(col), 0)
If Not IsError(ligne) Then
trouvé = True
.Cells(ligne, col).Interior.Color = tabloCoul(col - 3)
Exit For
End If
Next col
End With
If Not trouvé Then MsgBox "code inconnu"
End If
End Sub