[VBA] Raccourci liste déroulante

Bonjour,

Aujourd'hui je cherche un moyen d'autoriser les raccourci à la saisie dans une liste déroulante auto-générée .

Exemple : j'ai une liste avec 3 choix " Oui " , "Non" ,"Peut Etre " et je veux que quand l'utilisateur tape "n" (minuscule ou majuscule peu importe) , celà lui séléctionne "Non" directement . Y'a t'il un moyen de faire ça simplement ?

Bonjour

Un exemple qui fonctionne si un, deux etc caractères sont saisis

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A5")) Is Nothing Then
If Left(Target, 1) = "n" Or Left(Target, 1) = "N" Then Target = "Non"
If Left(Target, 1) = "o" Or Left(Target, 1) = "O" Then Target = "Oui"
If Left(Target, 1) = "p" Or Left(Target, 1) = "P" Then Target = "Peut-être"
End If
End Sub

merci pour ta réponse le seul problème étant que la liste est générée dynamiquement d'ou m'a question comment je fait pour associer ce code sachant qu'elle n'est pas adressée à la base ? (je ne sais pas si c'est très clair ) . Voici le code qui créer une liste (comme tu peux le voir je ne connais pas d'avance son emplacement) D'ou ma question, comment lui associer ton code ?

Sub Make_list(ma_plage_donnees As String, x As Integer, Y As Integer)
'
' make_aList Macro
' Construit une liste déroulante avec la plage de donnée séléctionnée à la case X,Y

'
Cells(x, Y).Select ' Cellule qui va contenir la liste
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=ma_plage_donnees
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

End Sub

En fait ce que je recherche c'est d'associer un événement à la création de la liste .