compléter une donnée présente dans une BDD

[Markal]

Bonjour à toutes et à tous,
J'ai monté une formulaire qui se déverse dans une BDD qui se trouve dans un autre classeur.
Le traitement des données se fait en deux temps. Une première partie est envoyé dans la BDD via un bouton de commande, et c'est la que ça se complique. Je souhaiterai envoyer la deuxième partie du formulaire (saisie pas le même jour que la première partie), sur la même ligne que la première partie dans la BDD.
Je vous mets le code du bouton de commande ci-dessous :

Sub Envoi_engagement()
Dim wbs As Workbook, wbdest As Workbook

Set wbs = ActiveWorkbook
Set wbdest = Workbooks.Open(Filename:="emplacement bdd")

wbs.Sheets("SAISIE").Range("C3:C37").Copy
wbdest.Sheets("bdd").Range("A65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.DisplayAlerts = False
wbdest.Save
wbs.Sheets("SAISIE").Range("C3:C37").ClearContents
wbdest.Close
End Sub


A noter que la valeur qui permettra de retrouver la première partie du formulaire dans la BDD est en C37.
Et que la deuxième partie du formulaire se trouve en (F3:F6).
Merci par avance et n'hésitez pas à me dire si je ne suis pas clair.

PS : si en bonus on pouvait me montrer comment montrer un code proprement dans une petite fenêtre, ce serait bien sympa.