Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'à la sortie de la TextBox2
Dim R As Range
'déclare la variable R (Recherche)
If Me.TextBox2.Value = "" Then Exit Sub
'si la TextBox2 est vide, sort de la procédure
Set R = COL2.Find(Me.TextBox2.Value, , xlValues, xlWhole)
'définit la recherche R
If Not R Is Nothing Then
'condition : si il existe au moins une occurrence trouvée
MsgBox "Le code que vous avez saisi est déjà utilisé. Vous devez entrer un code différent."
'message
Cancel = True
'empêche la sorttie de la TextBox
With Me.TextBox2
'prend en compte la TextBox2
.SelStart = 0
'début de la sélection
.SelLength = Len(.Value)
'longueur de la sélection
End With
'fin de la prise en compte de la TextBox2
End If
'fin de la condition
End Sub