Sub test()
With Sheets("Stock1")
For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If UCase(.Cells(i, 4)) = "X" Then
.Range(.Cells(i, 1), .Cells(i, 4)).Copy Destination:=Sheets("Clos").Range("A" & Sheets("Clos").Range("A65535").End(xlUp).Row + 1)
.Rows(i).Delete
'on DEcrémente la variable puisque il y a une ligne de moins dans le tableau
i = i - 1
End If
Next i
End With
With Sheets("Stock2")
For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If UCase(.Cells(i, 4)) = "X" Then
.Range(.Cells(i, 1), .Cells(i, 4)).Copy Destination:=Sheets("Clos").Range("A" & Sheets("Clos").Range("A65535").End(xlUp).Row + 1)
.Rows(i).Delete
'on DEcrémente la variable puisque il y a une ligne de moins dans le tableau
i = i - 1
End If
Next i
End With
End Sub