Bonjour à tous,
@ Jean-Eric , 78chris
j'ai fait le test avec DateSerial sur les versions 97 à 2010, test concluant,
pourriez-vous vérifier si cela fonctionne sur les versions 2013, 2016 et 2019, merci!
dt = DateSerial(Year(Date), Month(Date), Day(Date))
ActiveSheet.Range("$A$1:$A$10").AutoFilter Field:=1, Criteria1:=">" & dt, Operator:=xlAnd