Bonjour

Voilà je voulais savoir s'il y avait un moyen afin que ma macro s’exécute plus rapidement. Cela vient certainement d'une erreur de ma part mais dès que je demande d'inscrire des formules je trouve que l’exécution n'est pas rapide,(peut être est ce normal ou pas.)
Donc si vous aviez un conseil.

Merci d'avance.

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
Private Sub CB_Valider_Click()
Application.CutCopyMode = True
Worksheets("Personnel").Activate
Range("A10000").End(xlUp).Offset(1, 0).Select
 
ActiveCell = New_Collegue.TB_Nom & " " & New_Collegue.TB_Prenom
 
 
ActiveCell.Offset(0, 1) = Me.CB_Service
ActiveCell.Offset(0, 2) = Me.CB_Planning
 
'Temps de Travail
ActiveCell.Offset(0, 3).FormulaR1C1 = _
        "=INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),11,3,RIGHT(RC3,1))"
'Total Semaine
    ActiveCell.Offset(0, 4).FormulaR1C1 = _
        "=INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),10,6,RIGHT(RC3,1))"
'Droit Nbre de jour de CP
    ActiveCell.Offset(0, 5).FormulaR1C1 = _
        "=INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),12,6,RIGHT(RC3,1))"
'Horaires semaine
    ActiveCell.Offset(0, 6).FormulaR1C1 = _
        "=TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),3,2,RIGHT(RC3,1)),""h:mm"")&""-""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),3,3,RIGHT(RC3,1)),""h:mm"")&""/""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),3,4,RIGHT(RC3,1)),""h:mm"")&""-""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),3,5,RIGHT(RC3,1)),""h:mm"")"
    ActiveCell.Offset(0, 7).FormulaR1C1 = _
        "=TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),4,2,RIGHT(RC3,1)),""h:mm"")&""-""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),4,3,RIGHT(RC3,1)),""h:mm"")&""/""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),4,4,RIGHT(RC3,1)),""h:mm"")&""-""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),4,5,RIGHT(RC3,1)),""h:mm"")"
    ActiveCell.Offset(0, 8).FormulaR1C1 = _
        "=TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),5,2,RIGHT(RC3,1)),""h:mm"")&""-""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),5,3,RIGHT(RC3,1)),""h:mm"")&""/""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),5,4,RIGHT(RC3,1)),""h:mm"")&""-""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),5,5,RIGHT(RC3,1)),""h:mm"")"
    ActiveCell.Offset(0, 9).FormulaR1C1 = _
        "=TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),6,2,RIGHT(RC3,1)),""h:mm"")&""-""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),6,3,RIGHT(RC3,1)),""h:mm"")&""/""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),6,4,RIGHT(RC3,1)),""h:mm"")&""-""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),6,5,RIGHT(RC3,1)),""h:mm"")"
    ActiveCell.Offset(0, 10).FormulaR1C1 = _
        "=TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),7,2,RIGHT(RC3,1)),""h:mm"")&""-""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),7,3,RIGHT(RC3,1)),""h:mm"")&""/""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),7,4,RIGHT(RC3,1)),""h:mm"")&""-""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),7,5,RIGHT(RC3,1)),""h:mm"")"
    ActiveCell.Offset(0, 11).FormulaR1C1 = _
        "=TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),8,2,RIGHT(RC3,1)),""h:mm"")&""-""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),8,3,RIGHT(RC3,1)),""h:mm"")&""/""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),8,4,RIGHT(RC3,1)),""h:mm"")&""-""&TEXT(INDEX((PLANNING_1,PLANNING_2,PLANNING_3,PLANNING_4,PLANNING_5,PLANNING_6,PLANNING_7,PLANNING_8),8,5,RIGHT(RC3,1)),""h:mm"")"
 
Application.CutCopyMode = False
Unload Me
End Sub