Sub MouvementSemaine2()
Dim datedebut, datefin, adresse, nomFichier As String, rgDonnee, rgCritere, rgDestination As Range
datedebut = InputBox("date de debut")
datefin = InputBox("date de fin")
ThisWorkbook.Sheets("mouvement").Range("d2") = ">=" & DateValue(datedebut)
ThisWorkbook.Sheets("mouvement").Range("e2") = "<=" & DateValue(datefin)
Set rgDonnees = ThisWorkbook.Worksheets("mars").Range("A1").CurrentRegion
Set rgCritere = ThisWorkbook.Worksheets("mouvement").Range("d1:e2")
Set rgDestination = ThisWorkbook.Worksheets("mouvement").Range("a1:b1")
rgDonnees.AdvancedFilter xlFilterCopy, rgCritere, rgDestination
End Sub