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