Bonjour Subfestivus, bonjour le forum,
En pièce jointe ton fichier modifié. Plus de bouton Enregistrer, un double-clic dans la ListBox1 a le même résultat.
Le code :
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim O As Worksheet
Dim LI As Integer
Dim I As Integer
Set O = Worksheets("Base")
LI = O.Cells(Application.Rows.Count, "F").End(xlUp).Row + 1
If Me.ListBox1.ListCount = 0 Then Exit Sub
For I = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(I) = True Then
O.Cells(LI, "F").Value = Me.ListBox1.List(I)
Exit For
End If
Next I
Unload Me
End Sub
Le fichier :