Excel_vba

Sub transpose_dans_tableau()
With Sheets("Formulaire")
    .Range("B1:B5").Copy
    .Cells(1, 2).Select
End With
With Sheets("Base de données")
    .Select
    .Cells(Feuil1.Range("A65535").End(xlUp).Row + 1, 1).PasteSpecial Transpose:=True
    .Cells(1, 1).Select
End With
Application.CutCopyMode = xlCopy
Sheets("Formulaire").Range("B1:B5").ClearContents
End Sub

Sub transpose_dans_tableau()
    With Sheets("Formulaire").Range("B1:B5")
        .Copy
    Sheets("Base de données").[A65000].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAllExceptBorders, Transpose:=True
        .ClearContents
    End With
End Sub