Sub eric()
Dim Plage
Application.ScreenUpdating = False
Feuil3.Range("b4:h" & Rows.Count).Clear: Feuil4.Range("b4:h" & Rows.Count).Clear: Feuil2.Range("b4:h" & Rows.Count).Clear
Set Plage = Feuil1.Range("A4:h" & Feuil1.Cells(Feuil1.Rows.Count, "B").End(xlUp).Row)
Plage.AutoFilter Field:=1, Criteria1:="1"
Plage.Offset(, 1).Resize(, Plage.Columns.Count - 1).SpecialCells(xlCellTypeVisible).Copy Feuil3.[b4]
Plage.AutoFilter Field:=1, Criteria1:="2"
Plage.Offset(, 1).Resize(, Plage.Columns.Count - 1).SpecialCells(xlCellTypeVisible).Copy Feuil4.[b4]
Plage.AutoFilter Field:=1, Criteria1:="3"
Plage.Offset(, 1).Resize(, Plage.Columns.Count - 1).SpecialCells(xlCellTypeVisible).Copy Feuil2.[b4]
Plage.AutoFilter
End Sub