Macro

Bonjour à tous,

J'ai crée un userform et à l'intérieur une listbox dans laquelle il y a une liste de mots.
Je me positionne sur une cellule et je voudrais en tapant "Entrée" faire apparaitre mon userform puis en cliquant sur un mot de ma liste que celui-ci se mette sur cette cellule de mon tableau.
J'ai la formule mais cela ne fonctionne pa. Il ya des détails qui m'échappent.
Est-ce que quelqu'un pourrait me donner un coup de main?
Merci pour vos réponses.
Dan

Private Sub ListChoix_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'
Select Case (KeyAscii)
Case 13: 'Enter
Select Case (ListChoix.ListIndex)
Case 0:

Feuil1.Cells(TargetT, TargetL).Value = "MAL"
Case 1:
Feuil1.Cells(TargetT, TargetL).Value = "CP"
Case 2:
Feuil1.Cells(TargetT, TargetL).Value = "AA"
Case 3:
Feuil1.Cells(TargetT, TargetL).Value = "FOR"
Case 4:
Feuil1.Cells(TargetT, TargetL).Value = "CSS"
Case 5:
Feuil1.Cells(TargetT, TargetL).Value = "REC"
Case 6:
Feuil1.Cells(TargetT, TargetL).Value = "MUT"
Case 7:
Feuil1.Cells(TargetT, TargetL).Value = "APE"
Case 8:
Feuil1.Cells(TargetT, TargetL).Value = "CSI"


End Select
UserMotif.Hide
Case 27: 'escape
UserMotif.Hide
End Select
'
End Sub

Private Sub UserForm_Activate()
'
ListChoix.Clear
ListChoix.AddItem ("Maladie")
ListChoix.AddItem ("Congé payé")
ListChoix.AddItem ("Absence autorisée payée")
ListChoix.AddItem ("Formation")
ListChoix.AddItem ("Congé Sans Solde")
ListChoix.AddItem ("Recup")
ListChoix.AddItem ("Mutation")
ListChoix.AddItem ("Ecole Apprenti")
ListChoix.AddItem ("Congé Intermitant")

'
UserMotif.StartUpPosition = 2
'
ListChoix.ListIndex = 0
'
End Sub