Pb boucle

Bonjour,
je dois faire une recherche sur une colonne ma macro est faite mais celle ci s'arrete lorsqu'une cellule est vide mais le pb est que j'ai des cellule vide entre les données a recuperer
je ne peux supprimer les ligne vides
comment puis je faire pour definir une ligne ex row 150 comme derniere ligne de controle
rivate Sub CommandButton1_Click()

Sheets("feuil1").Select
Range("a1").Select
Dim cell
Dim I As Long
Dim Plage As Range
Set Plage = Range("a2:a" & Range("a2").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1

If Plage.Cells(I).Value = 7411 Then
Do While ActiveCell.Value <> ""
Plage.Cells(I).Offset(-1, 0).Range("a1:j3").Cut
Sheets("feuil2").Select
cel = ActiveCell.Address
ActiveSheet.Paste
ActiveCell.Offset(3, 0).Select

Loop
End If

Sheets("feuil1").Select

Next

End Sub