Récupérer informations d'une ligne et les faire afficher dans des Textbox

Bonjour,

J'ai fait un userform avec plusieurs pages dont une page recherche. La page recherche a une listbox qui s'actualise en fonction des valeurs mises dans les combobox.

Une fois que l'item est sélectionné, li faut double cliquer pour faire afficher les différentes informations dans la page Modification.

Le problème est qu'il n'affiche pas les informations de la ligne sélectionnée dans la listbox mais celle de la précédente.

Le code qui permet de faire afficher les informations de la ligne dans les différents textbox :

'****************************
'Page modification

'****************************
'Procédure de double click pour modifier les valeurs
'****************************
Private Sub Recherche_Liste_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim no_ligne As Integer, Laligne As String, X As Byte

    Me.MultiPage1.Value = 2

Laligne = Me.Recherche_Liste.List(Me.Recherche_Liste.ListIndex)
X = InStr(Laligne, " ")
Laligne = Left(Laligne, X - 1)
no_ligne = CInt(Right(Laligne, Len(Laligne) + 2))

    Modif_VALAC.Text = Cells(no_ligne, 1).Text
    Modif_Emi.Text = Cells(no_ligne, 2).Text
    Modif_RefSerCompo.Text = Cells(no_ligne, 3).Text
    Modif_RefAct.Value = Cells(no_ligne, 4).Value
    Modif_Designat.Value = Cells(no_ligne, 5).Value
    Modif_Fab.Value = Cells(no_ligne, 6).Value
    Modif_RefFab.Value = Cells(no_ligne, 7).Value
    Modif_NbStt.Value = Cells(no_ligne, 8).Value
    Modif_CasEmp.Value = Cells(no_ligne, 9).Value
    Modif_Statut.Value = Cells(no_ligne, 10).Value
    Modif_NatDem.Value = Cells(no_ligne, 11).Value
    Modif_RefDoc.Value = Cells(no_ligne, 12).Value
    Modif_LBO.Value = Cells(no_ligne, 13).Value
    Modif_Level.Value = Cells(no_ligne, 14).Value
    Modif_Dem.Value = Cells(no_ligne, 15).Value
    Modif_RespVal.Value = Cells(no_ligne, 16).Value
    Modif_TPS.Value = Cells(no_ligne, 17).Value
    Modif_Prio.Value = Cells(no_ligne, 18).Value
    Modif_Obser.Value = Cells(no_ligne, 19).Value
    Modif_Impact.Value = Cells(no_ligne, 20).Value
    Modif_RecoSerCompo.Value = Cells(no_ligne, 21).Value
    Modif_CommVSDem.Value = Cells(no_ligne, 22).Value
    Modif_TypeVal.Value = Cells(no_ligne, 23).Value
    Modif_DemEct.Value = Cells(no_ligne, 24).Value
    Modif_RecepEct.Value = Cells(no_ligne, 25).Value
    Modif_PCN.Value = Cells(no_ligne, 26).Value
    Modif_RetRU.Value = Cells(no_ligne, 27).Value

End Sub

Bonne après-midi !