If Month(Date) + 1 > 12 Then
a = Year(Date) + 1
b = 1
Else
a = Year(Date)
b = Month(Date) + 1
End If
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=5, Criteria1:= _
">=" & CLng(DateSerial(Year(Date), Month(Date), 1)), Operator:=xlAnd, Criteria2:="<" & CLng(DateSerial(a, b, 1))
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=8, Criteria1:= _
"="
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=6, Criteria1:= _
"<>*Expertise*", Operator:=xlAnd
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7, Criteria1:= _
"<>*attente*", Operator:=xlAnd