Bonsoir,
le code ci dessous ne fontionne pas?
je ne comprend pas?
If day(Date + 1) < 10 Then
ActiveSheet.Range("$B$1:$P$170").AutoFilter Field:=1, Criteria1:=Format(Date + 1, "ddd mmm d")
ActiveSheet.Range("$B$1:$P$170").AutoFilter Field:=6, Criteria1:="=High", _...