Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B4:F16"), Target) Is Nothing Then
Select Case Target.Value
Case Is = "TRAJET", Is = "PAUSE", Is = ""
Exit Sub
Case Else
Derlign = Range("A65000").End(xlUp).Row + 1
Cells(Derlign, 1).Value = Target.Value
If Application.CountIf(Range("A21:A65000"), Target) > 1 Then
Cells(Derlign, 1).ClearContents
Else
Set plage = Sheets(1).Range("A1:B10")
Cells(Derlign, 2).Value = Application.VLookup(Target, plage, 2, False)
End If
End Select
End If
End Sub