Optimation de temps d'excution d'une Macro

Bonjour à tous,

Je rencontre un souci avec une macro. Je travaille sur des grosses BDD (10000-80000 lignes) et j'aimerai optimiser le temps d'exécution d'une de mes macros. Sur certains fichiers ma macro prend environ 10 minutes d'exécution. J'aimerai votre avis sur la rédaction de ma macro :

Sub maj_relations_opera_yc_mois_tous_TCT2()

‘déclaration variables
Dim t As Single
Dim v_derligne As Long
Dim vTrain As String
Dim vTCT As String
Dim vDate As String
Dim a_wbook As String
Dim Wbsource1 As String
Dim A_sheet As String
'traitement 4 à 5 secondes

Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual


vTrain = InputBox("Cellule du 1er n° de train ?")

If vTrain = "" Then
MsgBox "annulé"
Exit Sub
Else

vTCT = InputBox("Cellule du 1er code TCT ?")

If vTCT = "" Then
MsgBox "annulé"
Exit Sub
Else

vDate = InputBox("Mois en cours ?")

If vDate = "" Then
MsgBox "annulé"
Exit Sub
Else

t = Timer

'nom du classeur actif
a_wbook = ActiveWorkbook.Name

'ouvrir le fichier d'arborescence
Workbooks.Open Filename:="C:\Users\9407465F\Documents\Cumul Opéra 2017", UpdateLinks:=False
Wbsource1 = ActiveWorkbook


Windows(a_wbook).Activate

'Recherche de la dernière ligne du tableur
v_derligne = Range("A" & Rows.Count).End(xlUp).Row

'Relation VERSION avec MVA
With Range(ActiveCell.Address & ":" & Split(ActiveCell.Address, "$")(1) & v_derligne)
'recherchev
.Formula = "=IF(" & vTCT & " = ""LDA"",""422"",VLOOKUP(" & vDate & "&""@""&" & vTrain & _
",'C:\Users\9407465F\Documents\[Cumul Opéra 2017.xlsx]Arbo cumulée 2017'!A:E,5,FALSE))"
.Value = .Value

End With

'fermer le fichier source
Windows(Wbsource1).Close

End If
End If
End If

Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

t = Timer - t


MsgBox ("Mise à jour des relations terminée en " & t & "secondes")


End Sub

Merci d'avance!!!