ça devrait faire l'affaire, non ?
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'ici on colle en cellule A1 la valeur recherché dans le tableau servant de rowsource à la listbox.
Range("A1").Value = Application.WorksheetFunction.VLookup(ListBox1.Value, Sheets(ActiveSheet) _
.Range(ListBox1.RowSource), 2, False)
End Sub
tu ajustes les paramètres en fonction de ton besoin. (feuille cible, range cible, ...)