If Application.CountIf(Sheets("Clients").Range("B:B"), t2.Text) > 0 Then
MsgBox "Ce nom de client existe déjà dans la base de donnée!" & vbCrLf & _
"Enregistrement annulé!", vbExclamation, "Valider saisie"
With t2
.SelStart = 0
.SelLength = Len(t2.Text)
End With
t2.SetFocus
Exit Sub
End If