macro lente _ fusion ou réécrire ?

[matoupitou]

hello
cette macro tourner trop longtemps
je pense qu'un mixe des 2 suffirait mais je ne sais pas comment les mélanger
qq1 peut-il m'aider

Sub recherchev()
ref = "H:\COMMON\DC OPERATIONS\BACK OFFICE OPERATIONS\CROISEMENTS (réfs op)\ref13.xlsm" 'chemin du fichier
ref2 = "ref13.xlsm" 'nom du fichier

Application.DisplayAlerts = False
Workbooks.Open (ref)
ThisWorkbook.Activate

For i = 3 To Range("a65000").End(xlUp).Row

For j = 70 To 87
Cells(i, j).Value = Application.VLookup(Cells(i, 43).Value, Workbooks(ref2).Sheets(Cells(2, j)).Range("a:b").CurrentRegion, 2, False)
Next
Next

Workbooks(ref2).Close
Application.DisplayAlerts = True
End Sub

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-27],'[ref13.xlsm]1'!C1:C2,2,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]1'!C1:C2,2,FALSE)"
Range("BR4").Select
ActiveWindow.SmallScroll ToRight:=7
Range("BR3").Select
Selection.AutoFill Destination:=Range("BR3:CI3"), Type:=xlFillDefault
Range("BR3:CI3").Select
Range("BS3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]2'!C1:C2,2,FALSE)"
Range("BT3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]3'!C1:C2,2,FALSE)"
Range("BU3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]4'!C1:C2,2,FALSE)"
Range("BV3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]5'!C1:C2,2,FALSE)"
Range("BW3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]6'!C1:C2,2,FALSE)"
Range("BX3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]7'!C1:C2,2,FALSE)"
Range("BY3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]8'!C1:C2,2,FALSE)"
Range("BZ3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]9'!C1:C2,2,FALSE)"
Range("CA3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]10'!C1:C2,2,FALSE)"
Range("CB3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]11'!C1:C2,2,FALSE)"
Range("CC3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]12'!C1:C2,2,FALSE)"
Range("CD3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]13'!C1:C2,2,FALSE)"
Range("CE3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]14'!C1:C2,2,FALSE)"
Range("CF3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]15'!C1:C2,2,FALSE)"
Range("CG3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]16'!C1:C2,2,FALSE)"
Range("CH3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]17'!C1:C2,2,FALSE)"
Range("CI3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC43,'[ref13.xlsm]18'!C1:C2,2,FALSE)"
Range("BR3:CI3").Select
Selection.AutoFill Destination:=Range("BR3:CI1000"), Type:=xlFillDefault
Range("BR3:CI1000").Select

toujours un grand merci par avance

 

[matoupitou]

Re : macro lente _ fusion ou réécrire ?

j'ai besoin d'aide pédagogique car je ne sais pas comment écrire cette nouvelle macro qui devrait être un mixe des deux
je remercie par avance le bienfaiteur ou la bienfaitrice )