Selection de données

Bonjour à tous,
Voilà je souhaite modifier un code que j'ai crée il y a de ça quelques années... (vous trouverez le code actuel ci-dessous). Mon problème et que au lieu de copier ligne par ligne, je souhaiterai pouvoir selectionner l'ensemble des lignes contenant ma valeur recherchée puis effectuer un copier/coller en une seule fois.
Quelqu'un peut il m'aider svp ? Merci d'avance
If TextBox2 <> "" Then
Z = Range("A2").End(xlDown).Row
For i = 2 To Z
If Range("F" & i).Value = TextBox2.Value Then
Worksheets("Data").Rows(i).Copy
Sheets("Data_2").Select
ligne = Sheets("Form").Range("A1").Value
Range("A" & ligne).Select
ActiveSheet.Paste
Sheets("Form").Range("A1").Value = Sheets("Form").Range("A1").Value + 1
Worksheets("Data").Activate
....