Sub MAJ()
Dim chemin$, F$, i&, tablo$(), cel As Range, v As Variant
'---copie les cellules du fichier source---
chemin = "'" & ThisWorkbook.Path 'à adapter éventuellement
F = chemin & "\[Parametre.xls]Feuil1'!R" 'à adapter éventuellement
For i = 2 To Rows.Count
ReDim Preserve tablo(1, i) 'tableau évolutif
tablo(0, i) = ExecuteExcel4Macro(F & i & "C6") 'colonne F
tablo(1, i) = ExecuteExcel4Macro(F & i & "C7") 'colonne G
If tablo(0, i) = 0 Then Exit For '1ère cellule vide (ou nulle)
Next
'---mise à jour des cellules---
Application.ScreenUpdating = False
For Each cel In Range("G2", [G65536].End(xlUp))
v = Application.HLookup(cel.Text, tablo, 2, 0)
If Not IsError(v) Then cel = v
Next
End Sub