Recherche via une macro

...
If Not r Is Nothing Then
    pa = r.Address
    Do
        With Me.ListBox1
            .AddItem r.Value
            .Column(1, .ListCount - 1) = r.Row
        End With
        Set r = pl.FindNext(r)
    Loop While Not r Is Nothing And r.Address <> pa
'i Si... pour le message puis la correction
Else
  MsgBox "non trouvé", vbCritical, "Attention..."
  TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
...

Private Sub CommandButton1_Click() 'bouton "Ok"
If TextBox2 = "" Then
  With TextBox1
    .SetFocus
    .SelStart = 0 'facultatif
    .SelLength = Len(.Text) 'facultatif
  End With
  MsgBox "Famille d'activité inexistante..."
  Exit Sub
End If
Dim x As New DataObject 'déclare la variable x
With x 'prend en compte la variable x
    .SetText Me.TextBox2.Text 'définit le texte de la variable
    .PutInClipboard 'place la variable dans le presse-papier
End With 'fin de la prise en compte de la variable x
Unload Me 'vide et ferme l'UserForm
End Sub