Insertion d'une ligne dans une autre feuille

Bonjour à tous,

Etant débutant dans les macros, voilà une petite question: j'ai un fichier avec 2 feuilles, la première "formulaire", la deuxième "base de données". Je rentre mes infos dans le formulaire (nom, prénom...) et veut ensuite transférer les infos dans la base de données avec une macro.

Je programme ma macro comme suit: dans base de données je clique droit sur 2ème ligne et clique sur insertion (pour avoir une ligne vide dans la base de donnée pour rentrer mes infos). Je continue avec de basics copier-coller jusqu'à obtention du résultat.

Problème: Lorsque j'exécute mon macro depuis la feuille base de donnée, tout fonctionne. Par contre, si j'exécute ma macro depuis le formulaire ( ce que je souhaite grâce à un bouton), la ligne s'ajoute dans la mauvaise feuille. Comment modifier ma macro?

J'espère avoir été clair et attend vos lumières

Voici une copie de ma macro:

Sub Macro1()

'

' Macro1 Macro

'

'

Rows("2:2").Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow

Range("A2").Select

Sheets("Traitements").Select

ActiveCell.FormulaR1C1 = "=Facture!R[3]C[4]"

Range("B2").Select

ActiveCell.FormulaR1C1 = "=Facture!R[20]C[1]"

Range("C2").Select

ActiveCell.FormulaR1C1 = "=Facture!R[21]C"

Range("D2").Select

ActiveCell.FormulaR1C1 = "=Facture!R[22]C[-1]"

Range("E2").Select

ActiveCell.FormulaR1C1 = "=Facture!C25"

Range("F2").Select

ActiveCell.FormulaR1C1 = "=Facture!R[23]C[8]"

Range("G2").Select

ActiveCell.FormulaR1C1 = "=Facture!R[20]C[7]"

Range("H2").Select

ActiveCell.FormulaR1C1 = "=Facture!R[22]C[6]"

Range("I2").Select

ActiveCell.FormulaR1C1 = "=Facture!R[3]C[7]"

Range("J2").Select

ActiveCell.FormulaR1C1 = "=Facture!R[40]C[2]"

Range("J3").Select

End Sub

Comment affecter le Rows("2:2") à la feuille base de données?

Merci d'avance

Bonjour

Soit cohérent entre tes explications et le code

alam84 a écrit :

la première "formulaire", la deuxième "base de données"

Alors que dans le code c'est "Traitements" et "Facture"

Sub Macro1()
'
' Macro1 Macro
'
  With Sheets("Traitements")
    .Rows(2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    .Range("A2").FormulaR1C1 = "=Facture!R[3]C[4]"
    .Range("B2").FormulaR1C1 = "=Facture!R[20]C[1]"
    .Range("C2").FormulaR1C1 = "=Facture!R[21]C"
    .Range("D2").FormulaR1C1 = "=Facture!R[22]C[-1]"
    .Range("E2").FormulaR1C1 = "=Facture!C25"
    .Range("F2").FormulaR1C1 = "=Facture!R[23]C[8]"
    .Range("G2").FormulaR1C1 = "=Facture!R[20]C[7]"
    .Range("H2").FormulaR1C1 = "=Facture!R[22]C[6]"
    .Range("I2").FormulaR1C1 = "=Facture!R[3]C[7]"
    .Range("J2").FormulaR1C1 = "=Facture!R[40]C[2]"
  End With
End Sub

Si pas ça il te faudra joindre ton fichier

Désolé pour mon incohérence, j'ai fait des modif.

Un grand merci pour le mot de bienvenue et surtout pour la réponse adéquate et super rapide. Je débute et c'est génial de pouvoir s'appuyer sur des forums de ce genre

Merci et a plus