Transposer via un bouton de commande

Bonjour à toutes et à tous,
J'ai un classeur "A" d'où j'envoie des données dans un autre classeur "B" via un bouton de commande.
Les données saisies en "A" sont saisies en colonne et je voudrais que les données se répartissent sur la même ligne dans le même ordre dans le classeur "B".
Ci-dessous ma commande sur le bouton :

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

Set wbs = ActiveWorkbook
Set wbdest = Workbooks.Open(Filename:="classeur"B"")

wbs.Sheets("SAISIE").Range("C3:C37").Copy _
Destination:=wbdest.Sheets("bdd").Range("A65536").End(xlUp)(2)
Application.DisplayAlerts = False
wbdest.Save
wbs.Sheets("SAISIE").Range("C3:C37").ClearContents
wbdest.Close
End Sub

Merci par avance et bonne soirée