Option Explicit
Dim X, Y, Z As Integer
Sub SelectionCopier()
Application.ScreenUpdating = False
Worksheets("feuil1").Select ' selection de la feuile 1 [ change le nom]
For X = 1 To 65536
If Worksheets("Feuil2").Cells(X, 1) = "*" Then
Z = Worksheets("Feuil1").Range("A65536").End(xlUp).Row + 1
For Y = 1 To 6
Worksheets("Feuil1").Cells(Z, Y) = Worksheets("Feuil2").Cells(X, Y)
Next
End If
Next
Application.ScreenUpdating = True
End Sub