Bonjour à tous

Je cherche à me servir des filtres automatiques par une macro. La colonne à filtrer (la 13) contient une donnée sous la forme "dd/mm/yyyy hh:mm:ss"

J'ai essayé 2 solutions mais cela ne marche pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Filtre1()
Dim critere As String
critere = "03/05/2011  20:00:30"
 
Selection.AutoFilter Field:=13, Criteria1:=critere
End Sub 'Filtre()
 
'------------------------------------------------------------------------
Sub Filtre2()
Dim critere As String
critere = "03/05/2011  20:00:30"
 
Dim startdate2 As Single
startdate2 = critere
TextBox3.Value = startdate2
 
Selection.AutoFilter Field:=13, Criteria1:=TextBox3.Value
End Sub 'Filtre()
Mais aucune des deux ne fonctionne
Auriez-vous une solution ?

Merci d'avance