Sub Macro1()
'
' Macro1 Macro
'
Dim x, y
x = Columns(2).Find("*", , xlValues, , 1, 1, 0).Row 'Première ligne colonne B
y = Columns(2).Find("*", , xlValues, , 1, 2, 0).Row 'Dernière ligne colonne B
'pour selectionner les lignes
Rows(x & ":" & y).Select
Selection.Copy
Windows("Alpha.xls").Activate
Range(x & ":" & y).Copy Sheets("Testalpha").Range("A65536").End(xlUp)(2)
End Sub