Probleme pour une Macro de copie

Bonjour a tous,

Voila, j'ai creer une macro qui demande a la personne de rentrer le numero de ligne concerne , puis de faire un copier coller (values) dans une autre feuille en fonction du numero de la ligne.
Mais voila, lors du copier coller ma macro bug.
Voici le code :

Private Sub CommandButton2_Click()

Dim ligne As Integer

ligne = InputBox("veuiller entrer la ligne concernè dans l'onglet NEW ")


If ligne = 1 Then
Sheets("Anciens").Select
Range("B12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("NEW").Select
Range("C8").select 'La macro bug la
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End if
End sub

Merci pour votre aide et votre temps