Date1 = Range("m3")
Date2 = Range("o3")
derlig = Range("a" & Rows.Count).End(xlUp).Row
If Range("o3") <> "" Then
Set plage = Range("a6:f" & derlig)
For Each cel In plage
If cel.Offset(, 1) = Date1 And cel.Offset(, 1) = Date2 Then
plage.AutoFilter Field:=2, Criteria1:=">=" & Date1, Operator:=xlAnd, Criteria2:="<=" & Date2
End If
Next cel
End If
If Range("o3") <> "" Then
Set plage = Range("a6:f" & derlig)
plage.AutoFilter Field:=2, Criteria1:=">=" & Format(Range("m3"), "ddd d mmmm"), Operator:=xlAnd, _
Criteria2:="<=" & Format(Range("o3"), "ddd d mmmm")
End If