Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target.Resize(2, 1).Interior.ColorIndex = [activité].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
Application.EnableEvents = False
Target.Offset(1, 0) = 4
Application.EnableEvents = True
End Sub