bonsoir,
Une ébauche de solution...
Range("B" & L).Value = CDbl(TextBox43)
Range("C" & L).Value = TextBox7
Range("D" & L).Value = CDbl(TextBox39)
Range("E" & L).Value = CDbl(TextBox40)
Range("F" & L).Value = CDbl(TextBox41)
Range("G" & L).Value = CDbl(TextBox42)
End If
Unload Me
UserForm1.Show
End Sub
Private Sub TextBox39_AfterUpdate()
TextBox39 = Format(TextBox39, "#,##0")
End Sub
Private Sub TextBox40_AfterUpdate()
TextBox40 = Format(TextBox40, "#,##0")
End Sub
Private Sub TextBox41_AfterUpdate()
TextBox41 = Format(TextBox41, "#,##0")
End Sub
Private Sub TextBox42_AfterUpdate()
TextBox42 = Format(TextBox42, "#,##0")
End Sub
A+