XL 2010 [Résolu] filtrer un tableau par semaine suivant deux dates

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