Private Sub Workbook_Open()
'Problème date inversée en Local
Dim DateAuj2 As Date
DateAuj = CDate(Date)
DateAuj2 = Format(DateAuj - 1, ("MM/DD/YYYY"))
'MsgBox DateAuj
'MsgBox DateAuj2
'Format(DateAuj, ("MM/DD/YYYY"))
ActiveSheet.Range("$A$1:$H$365").AutoFilter Field:=1, Criteria1:= _
">" & DateAuj2, Operator:=xlAnd
End Sub