Private Sub cmdValidenouvellesession_Click()
Dim Derli As Byte 'changer le type en fonction du nombre de lignes
With Sheets("Détail")
Derli = .[A256].End(xlUp).Row + 1
.Cells(Derli, 1) = txtnumerounique.Value
.Cells(Derli, 15) = txtmontantdemande.Value
.Cells(Derli, 16) = txttarifhoraire.Value
Unload Me
End With
End Sub