Filtres automatique

Bonjour,

j'ai un code qui est le suivant:

Private Sub Worksheet_Change(ByVal Target As Range)


Dim dercol As Integer, i As Long, derlig As Long

dercol = Cells(2, Cells.Columns.Count).End(xlToLeft).Column
derlig = Range("A" & Rows.Count).End(xlUp).Row


If Not Intersect(Target, Range("A1", Cells(1, dercol))) Is Nothing Then

  For i = 1 To dercol
  
     Select Case Target.Address
        Case Cells(1, i).Address
            If Target = "" Then
                Range("A2", Cells(derlig, dercol)).AutoFilter Field:=i
            Else
               Range("A2", Cells(derlig, dercol)).AutoFilter Field:=i, Criteria1:="*" & Cells(1, i).Value & "*"
              
            End If
     End Select
  Next i
End If
End Sub

Lorsque l'utilisateur renseigne une cellule de la ligne 1, le contenu de la colonne est filtré.

Le code fonctionne pour les colonnes contenant du texte.
J'essaie de le modifier pour qu'il fonctionne avec des colonnes de dates et de nombres.

Avez-vous quelques idées?

Merci d'avance,

Megatron