Bonsoir,
Une solution :
Private Sub CommandButton_Ajouter_Click()
'Si le formulaire est complet, on insère les valeurs sur la feuille
Dim no_ligne As Integer, civilite As String, Dico
'no_ligne = N° de ligne de la dernière cellule non vide de la colonne +1
no_ligne = Range("A65536").End(xlUp).Row + 1
'Insertion des valeurs sur la feuille
Set Dico = CreateObject("Scripting.Dictionary")
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then Dico(ListBox1.List(i)) = ""
Next i
i = Dico.Count
Cells(no_ligne, 1).Resize(1, Dico.Count) = Dico.keys
'Après insertion, on remet les valeurs initiales
End Sub
A+