Probleme vba

bonjour a tous

Novice balbutient dans les vba d'excel je n'arrive pas à trouver mon erreur. C'est pourquoi je sollicite de l'aide.
J'ai créer un sorte de tableau de saisi ou dans les cellules je replis des infos. d'un clique sur un bouton elles vont remplir une base de donnée et en même temps efface les valeur dans ces cellules de tableau.

Voici le scripte que j'ai crue bon.
Sub nouveau_old()
' **** voir nouvelle procédure plus bas *****
' nouveau Macro
' Macro enregistrée le 30/1/2013

Sheets("bd").Select
Selection.Insert Shift:=xlDown
Sheets("nouveau").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A2:N2").Select
Selection.Copy
Sheets("bd").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("nouveau").Select
Range("E8:E9").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ","
Range("G8").Select
ActiveCell.FormulaR1C1 = ","
Range("G9").Select
ActiveCell.FormulaR1C1 = ","
Range("G13").Select
End Sub

' **** nouvelle procédure *****
Sub nouveau()
Dim prelivi As Long

With Sheets("bd")
' récupérer le numéro de la première ligne vide de la feuille [bd]
prelivi = .Cells(Rows.Count, 1).End(xlUp).Row + 1
' copie des données
Range("A2:N2").Copy
' coller uniquement les valeurs dans la plage adéquate
.Range("a" & prelivi & ":N" & prelivi).PasteSpecial Paste:=xlPasteValues
End With
' nettoyer le tableau d'entré
Range("C7,E7,G7,I7,C9,E9,G9,C11,E11,C14,G11,G14").ClearContents

Le défaut..... déjà un temps très long pour que la saisi entre dans la base. De plus des lignes paresse a l'écran reprenant les valeur des cellule qui votre remplir la base puis disparais en me rendent la main

Je remercie d'avant celui ou ceux qui l'éclairons sur mes erreur de débutant.

Je remercie