Copier cellule d'une feuille dans BDD à la suite des données existantes

Bonjour à tous,

Je cherche, je cherche mais je ne trouve pas alors j'ai décidé de faire appel à vos âmes charitables.

Voilà j'ai un fichier où je souhaite que les cellules de mon onglet "Formulaire" implémente ma BDD "Actions correctives" à l'aide du bouton "Sauvegarder la non conformité"

J'arrive à ce que les infos se copie/colle mais je n'arrive pas, après plusieurs tentative de End(xlDown).row ou Xlup, à faire en sorte que la deuxième saisie dans le formulaire ira s'inscrire en dessous de ce qui est déjà enregistrer.

Et surtout que cela n'alourdisse pas le code.

J'ai bien pensé à des déclarations de variables, mais je n'ai pas compris comment cela marchait et comment les inclure dans mon code.

Je dois encore faire des "vide" de saisie une fois les cellule copier mais ça c'est bon je sais faire.

Je vous joint mon fichier et vous remercie par avance de votre aide.

Bonjour

Vos n'avez pas besoin de faire des copier-coller
Exemple le début de votre code :

Sub Sauvegarde()
Dim dlg As Integer

Application.ScreenUpdating = False

With Sheets("ACTIONS_CORRECTIVES_PREVENTIVES")
    dlg = .Range("A" & Rows.Count).End(xlUp).Row + 1

    .Range("A" & dlg) = Sheets("FORMULAIRE").Range("B7").Value
    .Range("C" & dlg) = Sheets("Formulaire").Range("C7").Value
    .Range("E" & dlg) = Sheets("Formulaire").Range("D7").Value
    .Range("B" & dlg) = Sheets("Formulaire").Range("F7").Value
    .Range("D" & dlg) = Sheets("Formulaire").Range("H7").Value
'....
End With

NB : vous pourriez mettre votre tableau au format structuré aussi. dans ce cas les codes seront à adapter

Super ça fonctionne à merveille

Merci beaucoup Dan !