Création d'un userform de recherche

Private Sub CommandButton1_Click()
Dim trouve As Range
'on cherche dans la colonne A le contenu du textbox1
Set trouve = Sheets("Donné").Columns(1).Cells.Find(TextBox1.Value)
If Not trouve Is Nothing Then
'si on trouve, alors on efface les couleurs colonne A
    Sheets("Donné").Columns(1).Interior.ColorIndex = xlNone
'on colorie la cellule trouvée
    trouve.Interior.ColorIndex = 3
Else
'sinon on dit qu'on n'a pas trouvé
    MsgBox "référence non trouvée"
    TextBox1 = ""
End If
End Sub