Sub Filtre_delai()
Dim premiereCellule As Range
Set premiereCellule = ActiveCell.CurrentRegion.Cells(1)
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & Nlig).Select
On Error Resume Next
ActiveSheet.ShowAllData
With Worksheets("Demandes")
If Not .AutoFilterMode Then .Range("$AD$6").AutoFilter Field:=38, Criteria1:="<=7", Criterial2:="<> & Empty"
End With
End Sub