Private Sub CommandButton1_Click()
Dim i As Integer
Dim lig As Long
With Sheet2 'Sheet2 est le codeName et non le nom de la feuille
lig = .Range("A1:A" & .Range("A65000").End(xlUp).Row) + 1
For i = 1 To 20
If Sheets("Sheet1").Cells(i, 1).Value Like "*RAPID*" Then _
.Cells(lig, 1) = Cells(i, 1): lig = lig + 1
Next i
End With
End Sub