Optimisation VBA

Bonsoir à tous,

J'aimerais optimiser le code ci joint. Est-ce possible ? De plus, quand j'effectue la macro, l'erreur 1004 apparaît, bien que la macro s’exécute. Comment faire pour que cette erreur ne s'affiche plus ?

Sub test_1()

    nbLigneRecap = Range("D1").Value
    Sheets("BDD BRUTE").Range("A" & nbLigneRecap).Value = Sheets("Saisie").Range("B1").Value
    Sheets("BDD BRUTE").Range("B" & nbLigneRecap).Value = Sheets("Saisie").Range("B2").Value
    Sheets("BDD BRUTE").Range("C" & nbLigneRecap).Value = Sheets("Saisie").Range("B3").Value
    Sheets("BDD BRUTE").Range("D" & nbLigneRecap).Value = Sheets("Saisie").Range("B4").Value
    Sheets("BDD BRUTE").Range("E" & nbLigneRecap).Value = Sheets("Saisie").Range("B5").Value
    Sheets("BDD BRUTE").Range("F" & nbLigneRecap).Value = Sheets("Saisie").Range("B6").Value
    Sheets("BDD BRUTE").Range("G" & nbLigneRecap).Value = Sheets("Saisie").Range("B7").Value
    Sheets("BDD BRUTE").Range("H" & nbLigneRecap).Value = Sheets("Saisie").Range("B8").Value
    Sheets("BDD BRUTE").Range("I" & nbLigneRecap).Value = Sheets("Saisie").Range("B19").Value
    Sheets("BDD BRUTE").Range("J" & nbLigneRecap).Value = Sheets("Saisie").Range("B10").Value
    Sheets("BDD BRUTE").Range("K" & nbLigneRecap).Value = Sheets("Saisie").Range("B11").Value
    Sheets("BDD BRUTE").Range("L" & nbLigneRecap).Value = Sheets("Saisie").Range("B12").Value
    Sheets("BDD BRUTE").Range("M" & nbLigneRecap).Value = Sheets("Saisie").Range("B13").Value
    Sheets("BDD BRUTE").Range("N" & nbLigneRecap).Value = Sheets("Saisie").Range("B14").Value
    Sheets("BDD BRUTE").Range("O" & nbLigneRecap).Value = Sheets("Saisie").Range("B15").Value
    Sheets("BDD BRUTE").Range("P" & nbLigneRecap).Value = Sheets("Saisie").Range("B16").Value

    Range("B1").Select
    Sheets("Saisie").Range("B1:B16").Copy Sheets("BDD BRUTE").Range("A:P" & nbLigneRecap)

End Sub

Merci d'avance

Bonjour,

à tester,

For i = 1 To 16
    Sheets("BDD BRUTE").Cells(nbLigneRecap, i) = Sheets("Saisie").Range("B" & i).Value
Next

Super, ça marche merci beaucoup

Bonne soirée