Problème formulaire intégration sur BDD

Sub transpose_dans_tableau()
' Cette macro assume que la base de donnée comporte une ligne d'entêtes
Dim rngFormulaire As Range
Dim wksBD As Worksheet

Set rngFormulaire = Worksheets("Feuil1").Range("K21:K21,K24:K24,K27:27,K30:K30")
Set wksBD = Worksheets("Feuil2")

' Copier les données du formulaire
rngFormulaire.Copy
' Coller avec transposition dans la base de données
wksBD.Cells(wksBD.UsedRange.Rows.Count + 1, 3).PasteSpecial Paste:=xlPasteValues, Transpose:=True
' Enlever l'indicateur d'opération copier/coller
Application.CutCopyMode = False
' Effacer les données dans le formulaire
rngFormulaire.ClearContents

End Sub

Cliquez pour agrandir...