Sub test()
Derligne = Sheets("base de données").Range("A" & Application.Rows.Count).End(xlUp).Row + 1
Sheets("formulaire").Range("B1:B9").Copy
Sheets("base de données").Cells(Derligne, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Sheets("formulaire").Range("B1:B9").ClearContents
End Sub