Private Sub CommandButton1_Click()
Dim f As Worksheet
Set f = DA
f.Select
[A65000].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Offset(0, 0).Value = Me.TxtDossier
ActiveCell.Offset(0, 1).Value = Me.TxtFacture
ActiveCell.Offset(0, 2).Value = Me.TxtMontantF
ActiveCell.Offset(0, 3).Value = Me.TxtMontantD
ActiveCell.Offset(0, 4).Value = Me.TxtMontantR
ActiveCell.Offset(1, 0).Value = Me.TxtDossier2
ActiveCell.Offset(1, 1).Value = Me.TxtFacture2
ActiveCell.Offset(1, 2).Value = Me.TxtMontantF2
ActiveCell.Offset(1, 3).Value = Me.TxtMontantD2
ActiveCell.Offset(1, 4).Value = Me.TxtMontantR2
ActiveCell.Offset(2, 0).Value = Me.TxtDossier3
ActiveCell.Offset(2, 1).Value = Me.TxtFacture3
ActiveCell.Offset(2, 2).Value = Me.TxtMontantF3
ActiveCell.Offset(2, 3).Value = Me.TxtMontantD3
ActiveCell.Offset(2, 4).Value = Me.TxtMontantR3
End Sub