Problème de recherche seulement pour la date

Bonjour tout le monde,

J'ai réalisé une interface pour faire la recherche mon problème que j'ai, c'est que le recherche est fonctionne très bien pour toute les items seulement la date, mon code de recherche est en dessus, merci de m'aidé

! Désoler je n'arrive pas à vous envoyez le fichier car il est trop long.

'dim the variables
Dim Crit As Range
Dim FindMe As Range
Dim DataSH As Worksheet

'error handler
On Error GoTo errHandler:

'set object variables
Set DataSH = Sheet1

'hold in memory and stop screen flicker
Application.ScreenUpdating = False

'///////////////////////////////////////////

'if header is selected add the criteria
If Me.cboHeader.Value <> "All_Columns" Then
If Me.txtSearch = "" Then
DataSH.Range("N9") = ""
Else
DataSH.Range("N9") = "*" & Me.txtSearch.Value & "*"
End If
End If

'//////////////////////////////////////////

'if all columns is selected
If Me.cboHeader.Value = "All_Columns" Then

'find the value in the column
Set FindMe = DataSH.Range("B9:K30000").Find(What:=txtSearch, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

'variable for criteria header
Set Crit = DataSH.Cells(8, FindMe.Column)

'if no criteria is added to the search
If Me.txtSearch = "" Then
DataSH.Range("N9") = ""
DataSH.Range("N8") = ""
Else

'add values from the search
DataSH.Range("N8") = Crit
If Crit = "ID" Then
DataSH.Range("N9") = Me.txtSearch.Value
Else
DataSH.Range("N9") = "*" & Me.txtSearch.Value & "*"
End If

'show in the userform the header that is added
Me.txtAllColumn = DataSH.Range("N8").Value
End If
End If

'/////////////////////////////////////////

'filter the data
DataSH.Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Data!$N$8:$N$9"), CopyToRange:=Range("Data!$P$8:$Y$8"), _
Unique:=False

'add the dynamic data to the listbox
isDefect.RowSource = DataSH.Range("outdata").Address(external:=True)

'error handler
On Error GoTo 0

Exit Sub
errHandler:

'if error occurs then show me exactly where the error occurs
MsgBox "No match found for " & txtSearch.Text

'clear the listbox if no match is found
Me.isDefect.RowSource = ""
Exit Sub

End Sub