userform de recherche

Private Sub cmdrecherche_Click()

    Dim temp As Variant
    temp = TextBox1.Text
    If temp <> "" Then
       Union(Range("C:C"), Range("F:F")).Find(What:=temp, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate
       
    Else
        MsgBox "Veuillez entrer un texte pour la recherche", vbInformation + vbOKOnly, "moi"
    End If
    Exit Sub

End Sub

Private Sub cmdrecherche_Click()
Dim Ou As Range, temp, x As Range
   If TextBox1.Text = "" Then
      MsgBox "Veuillez entrer un texte pour la recherche", vbInformation + vbOKOnly, "moi"
      Exit Sub
   End If
   temp = TextBox1.Text
   Set Ou = Union(Range("C:C"), Range("F:F"))
   If Intersect(Ou, ActiveCell) Is Nothing Then Ou(1, 1).Select
   Set x = Ou.Find(What:=temp, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
   If x Is Nothing Then
      MsgBox "pas de correspondance"
      Exit Sub
   Else
      x.Select
   End If
End Sub