Bonsoir
Ce n'est pas le bon fichier
Pour info (solution)
Tu rajoutes dans le code de l'Userform
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cells(ActiveCell.Row, ActiveCell.Column) = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
Unload Me
End Sub