Sub transpose()
Sheets("Formulaire").Range("B1:B8").Copy
Sheets("base de donnée").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Sheets("Formulaire").Range("B1:B8").ClearContents
End sub()