Option Explicit
Sub ImporterDepuisPlusieursClasseurs()
Dim Cell As Range
Dim Y As Byte
For Each Cell In Range("A1:A4")
For Y = 2 To 5
With ActiveSheet.Cells(Cell.Row, Y)
.FormulaArray = "='" & ThisWorkbook.Path & "\[" & Cell & "]" & "Feuil1" & "'!" & Cells(1, Y - 1).Address(0, 0)
.Value = .Value
End With
Next Y
Next Cell
End Sub