Repetition dans une liste

Bonjour a tous,

J'ai crée un userform qui permet d enregistrer un nom d’équipe, dans une BBD, mais je voudrais si possible, que si le nom a déjà été encoder il me mette un avertissement pour ne pas avoir de doublon.

J espère avoir été clair, je vous remercie

Bonjour une proposition

Private Sub TextBox1_AfterUpdate()
If Application.WorksheetFunction.CountIf(Feuil7.Range("a3:a" & Feuil7.Range("a" & Rows.Count).End(xlUp).Row), TextBox1.Value) Then
If MsgBox("Equipe existante", vbCritical, "Erreur") = vbOK Then
TextBox1.Text = "Entrer une autre équipe"
End If
End If
End Sub

C est parfait je te remercie

De rien