MACRO suppression lignes d'une feuille et transfert dans une autre feuille

Bonsoir à la commauté,
avec l'aide de boisgontier j'ai cette petite macro qui supprime les lignes contenant ces paramètres...

Serait-il possible de les transférer vers la feuille 2 par exemple ( tout en les supprimant de la feuille 1)?

merci pour le infos

urbanito1


Sub supLignesRapide2()
Application.ScreenUpdating = False
a = Range("W1:W" & [W110000].End(xlUp).Row)
For i = LBound(a) To UBound(a)
If a(i, 1) Like "*84511/11101-03*" Or _
a(i, 1) Like "*84511/11102-03*" Or _
a(i, 1) Like "*84511/11105-03*" Or _
a(i, 1) Like "*84511/11205-03*" Or _
a(i, 1) Like "*84511/11201-03*" Or _
a(i, 1) Like "*84511/11202-03*" Or _
a(i, 1) Like "*84511/33304-06*" Then a(i, 1) = "sup" Else a(i, 1) = 0
Next i
Columns("b:b").Insert Shift:=xlToRight
[B1].Resize(UBound(a)) = a
[A1].CurrentRegion.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess
On Error Resume Next
Range("B1:B110000").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
Columns("b:b").Delete Shift:=xlToLeft
End Sub