Sub VaChercher()
rep = ActiveWorkbook.Path & "\" 'à adapter si différent
For k = 2 To 16 Step 7
fichier = Cells(k, 1) & ".xls"
For i = 0 To 6
For j = 3 To 22
c = Cells(1, j - 1).Address(ReferenceStyle:=xlR1C1)
v = Cells(i + 2, j - 1).Address(ReferenceStyle:=xlR1C1)
If ExecuteExcel4Macro("'" & rep & "[" & fichier & "]Resultat'!" & c & "") = 0 Then Exit For
Cells(k + i, j) = ExecuteExcel4Macro("'" & rep & "[" & fichier & "]Resultat'!" & v & "")
Next
Next
Next
End Sub