Sub Filtre()
Application.ScreenUpdating = False
Cells.ClearContents
With Sheets("Base")
.Range("C2").AutoFilter Field:=1, Criteria1:=ActiveSheet.Name
.Range("C2:E65536").Copy
Range("A3").PasteSpecial Paste:=xlPasteValues
.AutoFilterMode = False
End With
Range("A1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub