Private Sub CmdAnnuler_Click()
With user1.ListBox1
.ColumnCount = 2 ' 2 colonnes
.ColumnWidths = "65;10" ' Largeur des colonnes
.AddItem ListeClients.List(ListeClients.ListIndex, 0)
.List(.ListCount - 1, 1) = ListeClients.List(ListeClients.ListIndex, 1)
End With
End Sub