Sub eric()
Dim i As Integer
Dim n As Long
tblnom = Feuil3.Range("A2:A" & Feuil3.[A68000].End(xlUp).Row).Value
tblr = Feuil1.Range("A2:F" & Feuil1.[A68000].End(xlUp).Row).Value
tbldate = Feuil2.Range("D5:TA6")
ReDim tblo(100, 518)
For i = 1 To UBound(tblnom)
For j = 1 To 518 'UBound(tbldate)
For k = 1 To UBound(tblr)
If (tblr(k, 1) = tblnom(i, 1) And tblr(k, 2) = tbldate(1, j) And tblr(k, 3) = tbldate(2, j)) Then tblo(i, j) = tblr(k, 4)
Next k
Next j
Next i
End Sub