Sub Test()
Sheets("Feuil2").Cells.Clear
For Each X In Range("BQ1:" & Range("BQ65536").End(xlUp).Address)
If X <> "" Then Application.Union(Range("A" & X.Row & ":C" & X.Row), X).Copy Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
Next
End Sub