Private Sub Extraire_données_Click()
Range("A101").Rows("1:601").EntireRow.Select
Selection.ClearContents
Selection.Delete Shift:=xlUp
With Worksheets("Donnees")
.Range("B1:DD400").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("Tri").Range("A1:D2"), _
CopyToRange:=Worksheets("Tri").Range("A100:Z100"), Unique:=False
End With
End Sub