Bonjour à tous,
Voici mon problème, la formule ci-dessou prend plus de 2 minutes de calcul, sachant que je ne vous ai posté qu'une partie, il y a 12 autres, toutes identiques, seul les emplacement change.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 [A65000].End(xlUp).Offset(1, 0).Select
   ActiveCell.Offset(0, 0).Value = (CBarc1)
   ActiveCell.Offset(0, 1).Value = CBnom.Value
   ActiveCell.Offset(0, 2).Value = TBsem.Value
   ActiveCell.Offset(0, 3).Value = (TextBox1)
   ActiveCell.Offset(0, 4).Value = (TextBox2)
   ActiveCell.Offset(0, 5).Value = (TextBox3)
   ActiveCell.Offset(0, 6).Value = (TextBox4)
   ActiveCell.Offset(0, 7).Value = (TextBox5)
   ActiveCell.Offset(0, 8).Value = (TextBox6)
   ActiveCell.Offset(0, 9).Value = (TextBox7)
   ActiveCell.Offset(0, 10).Value = (TextBox8)
   ActiveCell.Offset(0, 11).Value = (TextBox9)
   ActiveCell.Offset(0, 12).Value = (TextBox10)
   ActiveCell.Offset(0, 13).Value = (TextBox11)
   ActiveCell.Offset(0, 14).Value = (TextBox12)
   ActiveCell.Offset(0, 15).Value = (TextBox13)
   ActiveCell.Offset(0, 16).Value = (TextBox14)
   ActiveCell.Offset(0, 17).Value = (TextBox15)
   ActiveCell.Offset(0, 18).Value = (TextBox16)
   ActiveCell.Offset(0, 19).Value = (TextBox17)
   ActiveCell.Offset(0, 20).Value = (TextBox18)
   ActiveCell.Offset(0, 21).Value = (TextBox19)
   ActiveCell.Offset(0, 22).Value = (TextBox20)
   ActiveCell.Offset(0, 23).Value = (TextBox21)
   ActiveCell.Offset(0, 24).Value = (TextBox22)
   ActiveCell.Offset(0, 25).Value = (TextBox23)
   ActiveCell.Offset(0, 26).Value = (TextBox24)
   ActiveCell.Offset(0, 27).Value = (TextBox25)
   ActiveCell.Offset(0, 28).Value = (TextBox26)
   ActiveCell.Offset(0, 29).Value = (TextBox27)
   ActiveCell.Offset(0, 30).Value = (TextBox28)
   ActiveCell.Offset(0, 31).Value = (TextBox29)
   ActiveCell.Offset(0, 32).Value = (TextBox30)
   ActiveCell.Offset(0, 33).Value = (TextBox31)
   ActiveCell.Offset(0, 34).Value = (TextBox32)
   ActiveCell.Offset(0, 35).Value = (TextBox33)
   ActiveCell.Offset(0, 36).Value = (TextBox34)
   ActiveCell.Offset(0, 37).Value = (TextBox35)
Est il possible de raccourcir cette formule, par exemple regrouper toutes les lignes en un seule ?

Merci pour vos réponses.