Bonjour le Forum
je cherche à accélrer ma macro

Pr info je saisis dans un userform puis est versé dans une bdd, j'en suis à 15 000 lignes.
Cette partie semble assez lente (5-6 secondes pour une insertion dans Bdd), comme si elle recharge à chaque colonne (20 au total)

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
 
 
Private Sub Enregistrement_Données()
With Me
    tExport(1) = .TB_Code.Text
    tExport(2) = CDate(Format(.TB_Date.Text, "dd/mm/yyyy"))
    tExport(3) = CDate(Format(.TB_Date.Text, "yyyy"))
    tExport(4) = .CO_Mois.Text
    tExport(5) = .CO_BudgetReel.Text
    tExport(6) = .CO_Compte.Text
    tExport(7) = .CO_Poste.Text
    tExport(8) = ValeurAvantTiretGroupe(.CO_Poste.Text)
    tExport(9) = ValeurApresTiretLigne(.CO_Poste.Text)
    tExport(10) = .TB_Numero.Text
    tExport(11) = .TB_Libelle.Text
    tExport(12) = .CO_ModeRegl.Text
    tExport(13) = .CO_Tiers.Text
 
    tExport(15) = .CO_BQ.Text
    tExport(16) = Format(.TB_Debit.Text, "#,##0.00 €")
    tExport(17) = Format(.TB_Credit.Text, "#,##0.00 €")
    tExport(19) = "OUI - " & Format(Date, "YYYY-MM-DD")
    tExport(20) = Year(CDate(.TB_Date.Text)) & Format(NOSEM(CDate(Format(.TB_Date.Text, "dd/mm/yyyy"))), "00")
End With
End Sub
Mémo :
tExport est une variable publique.
Dans l'userform, chaque Texbox.... est tagé en fonction de sa colonne dans la bdd


Je ne sais pas si c'est suffisamment clair !!!!

Il ya til moyen d'accélérer cette macro ?

Merci à vous