Sub Bouton6_QuandClic()
Application.ScreenUpdating = False
Sheets("saisie").Range("E8:E39").Copy
Set derligne = Sheets("bdd").Range("$A$65536").End(xlUp).Offset(1, 1)
derligne.PasteSpecial Paste:=xlAll, Operation:=xlNone, Transpose:=True
derligne.Offset(0, -1) = Sheets("saisie").Range("B3")
Sheets("saisie").Range("E8:E39").ClearContents
Application.ScreenUpdating = True
End Sub