Résultat dès la fin de la saisie dans une textbox

Private Sub TextBox2_Change()
Dim Nom As Range, firstAddress As String
If TextBox2.Value <> "" Then
  With Worksheets("Feuil1").Columns(1)
    Set Nom = .Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not Nom Is Nothing Then
      firstAddress = Nom.Address
      Do
        If TextBox2.Value = Nom.Offset(0, 1).Value Then
          MsgBox "Cette personne existe déjà dans la liste.", vbExclamation
          TextBox1.Value = ""
          TextBox2.Value = ""
          Exit Sub
        End If
        Set Nom = .FindNext(Nom)
      Loop While Not Nom Is Nothing And Nom.Address <> firstAddress
    End If
  End With
End If
End Sub