Function SuppItem(Valeur)
[COLOR=rgb(247, 218, 100)] ListBox1.Value = Valeur[/COLOR]
idx = ListBox1.ListIndex
ProchaineValeur = ListBox1.List(idx, 1)
ListBox1.RemoveItem (idx)
If ProchaineValeur = ComboBox1.Value Or ProchaineValeur = "" Then
Exit Function
Else
SuppItem ProchaineValeur
End If
End Function