Sub transpose_dans_tableau()
Dim r As Range
'Atteindre le formulaire et mémoriser les données
With Sheets("FORMULAIRE").Range("B67:B77")
.Copy
Set r = _
Sheets("Base de données").Range("A" & [A65536].End(xlUp).Row).Offset(1, 0)
r.PasteSpecial xlPasteValues, , , True
End With
' le reste de ton code restant identique
'tri par date de la base de données
'...
End sub