Msgbox pour informer qu'il ya un doublon dans une colonne

[gbaneyo]

J'ai crée un formulaire et textbox1 permet de remplir la colonne "A" je voudrais interdire les doublons par un msgbox lorsque je clique sur commandbutton1 pour valider le formulaire

[JC de Lorient]

salut tout le monde
un bonjour ne coute rien !!!
avec ce code sur le bouton de validation
Private Sub CommandButton1_Click()
Dim c
With Sheets(1).Columns(1) 'recherche dans le feuille 1 colonne A
Set c = .Find(TextBox1)
If Not c Is Nothing Then
MsgBox "la valeur existe"
End If
End With
End Sub