Usf: problème de value dans Application.VLookup

Bonsoir

dans l'USf Gestion Performance (feuille Perfs) du fichier joint,

1- je souhaiterais récupérer une donnée via une rechercheV de la feuille "Parametres"

=>Puis cette donnée doit s'afficher dans la txtbox = Me.txt_CategActu

Mais j'ai un message de problème de valeur que je n'arrive pas à déceler

Voici une partie de la procedure Private Sub lst_Perf_Click()

'catégorie actuelle en colonne Y
    'recherchev(cnum(Txt_AgeanAth); parametres!a2:b25;1)
    Me.Txt_CategActu = Application.VLookup(CInt(Me.Txt_AgeanAth.Value), Sheets("parametres").Range("$A$2:$B$25"), 2, False)
    Me.Txt_CategActu = .Range("Y" & Ligne)

2- Je souhaiterais concatener le Me.lst_Nivepreuve.List(Valeur) & "-" & NumerEpreuve et l'afficher dans la txtbox Me.txt_NomNumNivEpreuve

J'arrive à afficher le NivEpreuve mais pas le NumnivEpreuve

Private Sub lst_Nivepreuve_Click()
    'Afficher dans la Txt_NomNumNivEpreuve la valeur de la concatenation (NivEpreuve,"-",txt_NumNivEpreuve)
    Dim Ligne As Long
    Dim Valeur As Byte
    Dim NumerEpreuve As String

    Me.Txt_NumNivEpreuve = ""
    Ligne = Me.lst_Epreuve.ListIndex + 3

    Valeur = Me.lst_Nivepreuve.ListIndex
    NumerEpreuve = Me.Txt_NumNivEpreuve.Value

    'la valeur est = à la concatenation du niveau & Numero
    Me.txt_NomNumNivEpreuve.Value = Me.lst_Nivepreuve.List(Valeur) & "-" & NumerEpreuve

End Sub

Quelqu'un aurait-il une idée ?

Merci

Cordialement

Etoile

Me.Txt_NumNivEpreuve = ""

Puis aucun changement... il vaut donc ""...

Bonsoir ENGUE

merci !!! c'était évident!

Cordialement

Etoile