Formules VBA pour créer des colonnes

Bonjour,

J'ai un petit souci avec des formules VBA.
je veux créer deux colonnes dans lequel j'applique 2 formules sur toute la colonne mais le probléme est que celame prends beaucoup de temps pour l'ouverture, comme pour la fermeture.
serait-il possible d'améliorer la formule pour gagner du temps?

MERCI




Sub Macro2Colonnes()
'
' Macro pour la création de colonne

'
Columns("C:C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C1").Select
ActiveCell.FormulaR1C1 = "Catégorie"
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("D1").Select
ActiveCell.FormulaR1C1 = "Sous Catégorie"
Range("D2").Select
Columns("D:D").ColumnWidth = 14.86
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-1],'C:\Users\gboubou\Desktop\Gilles-automatisation.xlsm]Base comptable'!C1:C3,3,FALSE),""0"")"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C34049")
Range("C2:C34049").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-2],'C:\Users\gboubou\Desktop\Gilles-automatisation.xlsm]Base comptable'!C1:C4,4,FALSE),""0"")"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D34049")
Range("D2:D34049").Select

End Sub