Private Sub ListBox1_Click()
Dim LaValATrouver As Range
NomSelect = Me.ListBox1.Text
On Error Resume Next
With Worksheets(2).Range("A2:A10")
Set LaValATrouver = .Find(What:=NomSelect, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
End With
'La valeur est trouvée
If Not LaValATrouver Is Nothing Then
Me.Label1.Caption = "Nom déjà dans la liste."
Exit Sub
Else
Me.Label1.Caption = ""
End If
On Error GoTo 0
End Sub