Sub vous()
Dim Cel As Range
Application.ScreenUpdating = False
For Each Cel In Range(Cells(7, 6), Cells(Rows.Count, 6).End(xlUp))
Select Case Cel.Value
Case 1: vous2 Cel.Row, Feuil2
Case 2: vous2 Cel.Row, Feuil3
End Select
Next Cel
End Sub
Private Sub vous2(l As Long, fl As Worksheet)
With fl
Range(Cells(l, 1), Cells(l, 50)).Copy Destination:=.Cells(.Cells(.Rows.Count, 6).End(xlUp).Row + 1, 1)
End With
End Sub