Salut Rémi
Une facon de faire à adapter
Sub FillTabl()
'Récupération des données du tableau
'C:\Data_MP\Lecture_2004a.xls
Dim I As Byte
Dim fPath As String
Dim fName As String
Dim sName As String
Dim fullName As String
fPath = "C:\Data_MP"
fName = "Lecture_2004a.xls"
sName = "Data"
fullName = "='" & fPath & "\[" & fName & "]" & sName & "'!"
With F2
' ++++++++++++++++++++++++++++++++++++++
' + Récupèration des Lectures du Quart +
' ++++++++++++++++++++++++++++++++++++++
For I = 1 To 45
Cells(I, 4) = fullName & Cells(I, 10).Address()
Cells(I, 4).Value = Cells(I, 4).Value
Next I
End With
End Sub
Mytå