Re,
Ci-joint une proposition ...
Malheureusement, je n'ai pas les moyens de tester la macro ...
Sub ImportData2()
Dim i As Long, dl As Long
Dim ws As Worksheet, k As Worksheet
Dim sk As String
Dim x As Long
Application.ScreenUpdating = False
'Fichier destination
Set ws = ThisWorkbook.Sheets(1)
'Fichier source
Set k = Workbooks("SupportTestV1.xlsx").Sheets(1)
' Définir le String Complet pour l'instruction Evaluate ''''''''''''''''''''
sk = "D:\Téléchargements\.Fichiers Excel\[SupportTestV1.xlsx]Feuil1"
dl = ws.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To dl
If Cells(i, 1) <> "" Then
x = k.Range("K" & Rows.Count).End(xlUp).Row
Cells(i, 2) = Evaluate( _
"=INDEX(" & sk & "!K6:K" & x & ",SUMPRODUCT((" & sk & "!B6:B" & x & "=E" & i & ")*(" & sk & "!C6:C" & x & "=A" & i & ")*(" & sk & "!G6:G" & x & "=C" & i & ")*ROW(1:6)))")
End If
Next i
Application.ScreenUpdating = True
End Sub
En espèrant que cela t'aide