Comment faire apparaître une liste avec selection de ligne prédéfini?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xcell As Range

Application.EnableEvents = False
If Not Intersect(Range("K:K"), Target) Is Nothing Then
  For Each xcell In Intersect(Range("K:K"), Target)
    If xcell = "Arrivée" Then
      With Cells(xcell.Row, "a").Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
      xlBetween, Formula1:="A vérifier,A faire,Fait"
      End With
      Cells(xcell.Row, "a") = "A vérifier"
    Else
      Cells(xcell.Row, "a").Validation.Delete
    End If
  Next xcell
End If
Application.EnableEvents = True
End Sub