J'ai un dernier petit truc sur le dernier fichier. Lorsque l'on clique sur retirer et qu'il n'y a rien dan sla liste, le useform bug. Peut on faire un code pour éviter cette erreur ?
Modifie comme ceci
Private Sub CommandButton6_Click()
If Liste.ListCount = 0 Then Exit Sub
Liste.RemoveItem (Liste.ListCount - 1)
Call masomme(Me.Liste)
End Sub