Copier/coller des lignes avec conditions variable

Bonjour,

Je bloque sur mon fichier Excel, le but de ma démarche est de créer une fonction recherche sur excel grâce à un bouton.

Là où je suis bloqué c'est que j'arrive à récupérer les numéro de ligne où son apparu ce que je cherche mais je n'arrive pas à copier/coller suivant les numéros de cellule que je récupère.

J'ai essayé ça mais je suis pas trop à l'aise avec les boucle ^^

Sub Macro3()
'
' Macro3 Macro
'
    Dim b As Integer
    Dim y As Integer
    b = Range("A1:A500")'colonne ou son stocké les numéro de ligne, le nombre de ligne est variable
    y = Cells(b + 1, 1)
    Sheets("Station").Rows("y:y").Copy
    Sheets("Tableau de Bord").Cells(i + 28, 1).Select
    ActiveSheet.Paste
    Sheets("Station").Select
Next b
End sub

Merci d'avance