Sub CopierUserformIci()
[B65000].End(xlUp).Offset(1, 0).Select
ActiveCell = UCase(Me.TbxNom)
ActiveCell.Offset(0, -1) = Format(Tbx_Date, "dd-mmm-yyyy")
ActiveCell.Offset(0, 1) = Application.Proper(Me.Tbx_Desig)
ActiveCell.Offset(0, 2) = Application.Proper(Me.Tbx_Cat)
ActiveCell.Offset(0, 3) = Application.Proper(Me.Tbx_U)
ActiveCell.Offset(0, 4) = Application.Proper(Me.Tbx_Q)
ActiveCell.Offset(0, 5) = CDbl(Me.Tbx_PU)
ActiveCell.Offset(0, 6) = Format(Me.Tbx_R, "0.00%")
ActiveCell.Offset(0, 7) = CDbl(Me.Tbx_PN)
ActiveCell.Offset(0, 8) = CDbl(Me.Tbx_Montant)
End Sub