Sub Macro_OK()
Dim WS As Worksheet
Dim la_date
Dim DerL As Long
'suppression des filtres existants
For Each WS In Worksheets
If WS.AutoFilterMode = True Then WS.AutoFilterMode = False
Next
la_date = Format(InputBox("Saisir la date servant de critère"), "mm/dd/yy")
Application.ScreenUpdating = False
With Worksheets("RDV")
.Range("A1").Copy Sheets("Feuil1").Range("A1")
.Range("A2").AutoFilter _
1, ">=" & la_date, xlAnd, "<=" & la_date
.AutoFilter.Range.Copy Sheets("Feuil1").Range("A2")
End With
DerL = Sheets("Feuil1").Cells(65536, 1).End(xlUp).Row + 2
With Worksheets("TAF")
.Range("A1").Copy Sheets("Feuil1").Range("A" & DerL)
.Range("A2").AutoFilter _
1, ">=" & la_date, xlAnd, "<=" & la_date
.AutoFilter.Range.Copy Sheets("Feuil1").Range("A" & DerL + 1)
End With
DerL = Sheets("Feuil1").Cells(65536, 1).End(xlUp).Row + 2
With Worksheets("Appel en cours")
.Range("A1").Copy Sheets("Feuil1").Range("A" & DerL)
.Range("A2").AutoFilter _
1, ">=" & la_date, xlAnd, "<=" & la_date
.AutoFilter.Range.Copy Sheets("Feuil1").Range("A" & DerL + 1)
End With
Sheets("Feuil1").Columns("A:F").Columns.AutoFit
Application.ScreenUpdating = True
End Sub