Option Explicit
Option Compare Text 'permet de s'affranchir des majuscules et minuscules
Private Sub CommandButton1_Click()
Dim c As Range
'si le textbox1 est vide, on sort
If TextBox1 = '' Then Exit Sub
'pour chaque cellule de la ligne1 à la dernière cellule non vide de la colonne A
For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
'si la valeur de la cellule = la valeur du textbox, alors...
If c = TextBox1 Then
'on envoi un message
MsgBox 'STOP !!!, ce nom existe déjà', , 'Attention...'
'on redonne le focus au textbox1
TextBox1.SetFocus
'on prépare le textbox1 pour la correction
TextBox1.SelStart = 0
TextBox1.SelLength = Len(Me.TextBox1)
'on sort de la macro
Exit Sub
End If
Next c
'sinon on poursuit le traitement
End Sub