Private Sub CommandButton1_Click()
With Feuil3
fin = .Cells(65536, 2).End(xlUp).Row + 1
For i = 1 To 12
.Cells(fin, i) = Controls("Textbox" & i): Controls("Textbox" & i) = ""
If i > 1 And .Cells(fin, i) <> "" Then .Cells(fin, i) = CDec(.Cells(fin, i))
Next i
End With
Unload Me
End Sub