Dim sMa_Valeur_a_tester As String sMa_Valeur_a_tester = "6" For i = 0 To ListBox1.Items.Count ListBox1.SelectedIndex += 1 If sMa_Valeur_a_tester = ListBox1.SelectedItem.ToString Then MsgBox("Problème la valeur existe deja") Else MsgBox("continue le traitement") End If Next