Sub Macro1()
' ----- efface la zone reception
Sheets("DataSort").Range("A1").CurrentRegion.ClearContents
'----- mise en place filtre
Sheets("Data").Select
ActiveSheet.Range("$A$1:$C$6").AutoFilter Field:=3, Criteria1:=">=30", _
Operator:=xlAnd
'----- récuperation zone filtrée
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'------ mise place copie
Sheets("DataSort").Select
Range("A1").Select
ActiveSheet.Paste
' -------- restoration conditions initiales
Sheets("Data").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub