Copier coller

Bonjour tout le monde,
J'ai une base de données avec des noms et des métiers de personnes sur une feuill execl nommée "candidats".A partir d'un combobox sur un userfrom je choisit un metier. je souhaite alors que touts les lignes de la feuille candidats qui contiennet ce metiers se copient sur une feuille "copie". j'ai saisi les codes suivants :

Private Sub R_BT_V_Click()
Sheets("candidats").Activate
Range("C1").Select
While ActiveCell <> ER_CB_1 'nom du combobox
ActiveCell.Offset(1, 0).Select
selection.Copy
Sheets("copie").Select
ActiveSheet.Paste
Wend
End Sub

mais ca ne marche pas
auriez vous une solution a me proposer?
merci de votre aide