Private Sub Valider_Click()
If LigneDeTransfert = 0 Then Exit Sub
Sheets("Données").Range("D" & LigneDeTransfert) = CDate(Me.ComboDate)
Sheets("Données").Range("G" & LigneDeTransfert) = Me.TextBox1.Value
Sheets("Données").Range("H" & LigneDeTransfert) = Me.TextBox7.Value
Sheets("Donn