Sub Bâti_7()
Application.ScreenUpdating = False
ActiveSheet.Range("$A$1:$F$999").AutoFilter Field:=4, Criteria1:="Bâti 7"
Range("A2:F999").Copy Sheets("Bâti7").Range("A2")
Sheets("Bâti").Range("$A$1:$F$999").AutoFilter Field:=4
Application.ScreenUpdating = True
End Sub