Filtrer Date

Bonsoir tout le monde

J'ai élaboré un petit code pour filtrer les dates antérieures ou égales au contenu en D1. Mais cela me donne pas ce que je veux

Aidez moi a mieux rédiger ce bout de code .Merci

Sub filtre()
With [A2:B19]
.AutoFilter Field:=2, Criteria1:="<=" & Format([D1], " mmmm yyyy")
End With
End Sub

Salut KTM,

à tester

Sub filtre()
With [A2:B19]
.AutoFilter Field:=2, Criteria1:="<=" & CDbl([D1])
End With
End Sub

Bonne journée

m3ellem1 a écrit :
Salut KTM,
à tester
Sub filtre()
With [A2:B19]
.AutoFilter Field:=2, Criteria1:="<=" & CDbl([D1])
End With
End Sub
Bonne journée

Infiniment merci.