Sub Bouton1_QuandClic()
Dim intLigne As Integer
Dim strCritere
For intLigne = 1 To Cells(65536, 1).End(xlUp).Row
Select Case Cells(intLigne, 1)
Case strCritere
Rows(intLigne).Copy Destination:=Worksheets(1).Cells(Cells(1, 1).End(xlDown).Row + 1, 1)
End Select
Next intLigne
End Sub