Sheets("analyse par mailing").Select
derl = Range("c65000").End(xlUp).End(xlUp).Offset(1, 0).row
Cells(coutL, 2).Value = CCur(TextBox2)
Cells(ope, 2).Value = TextBox1.Value
Cells(derl, 3).Value = TextBox3.Value
Cells(derl + 1, 2).Value = TextBox4.Value
Cells(derl + 2, 2).Value = TextBox5.Value
Cells(derl + 3, 2).Value = TextBox6.Value
Cells(derl + 4, 2).Value = TextBox7.Value
Cells(derl, 3).Value = CCur(TextBox8)
Cells(derl + 1, 3).Value = TextBox10.Value
Cells(derl + 2, 3).Value = TextBox12.Value
Cells(derl + 3, 3).Value = TextBox14.Value
Cells(derl + 4, 3).Value = TextBox16.Value
Cells(derl, 4).Value = CCur(TextBox9)
Cells(derl + 1, 4).Value = TextBox11.Value
Cells(derl + 2, 4).Value = TextBox13.Value
Cells(derl + 3, 4).Value = TextBox15.Value
Cells(derl + 4, 4).Value = TextBox17.Value
Cells(derl, 7).Value = TextBox18
Cells(derl + 1, 7).Value = TextBox20
Cells(derl + 2, 7).Value = TextBox22
Cells(derl + 3, 7).Value = TextBox24
Cells(derl + 4, 7).Value = TextBox26
Cells(derl, 8).Value = TextBox19
Cells(derl + 1, 8).Value = TextBox21
Cells(derl + 2, 8).Value = TextBox23
Cells(derl + 3, 8).Value = TextBox25
Cells(derl + 4, 8).Value = TextBox27
Cells(derl, 10).Value = CCur(TextBox28)
Cells(derl + 1, 10).Value = CCur(TextBox30)
Cells(derl + 2, 10).Value = CCur(TextBox32)
Cells(derl + 3, 10).Value = CCur(TextBox34)
Cells(derl + 4, 10).Value = CCur(TextBox36)
Cells(derl, 11).Value = CCur(TextBox29)
Cells(derl + 1, 11).Value = CCur(TextBox31)
Cells(derl + 2, 11).Value = CCur(TextBox33)
Cells(derl + 3, 11).Value = CCur(TextBox35)
Cells(derl + 4, 11).Value = CCur(TextBox37)