VBA Corrections

[matoupitou]

bonjour
j'ai besoin qu'on m'aide pour mixer ces 2 codes afin que l'éxécution du 1er code (qui fonctionne) soit moins lente ! ça me dépasse POR FAVOR ! 🙂


1ER CODE
Sub RECHERCHE()
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

End Sub
----------------------------------------------------------------------------------------

2EME CODE

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

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