Sub consolide()
Dim Fic as string, Tablo
Redim Tablo(0 to 0)
Range("e3:g1000").ClearContents
Range("e3").Select
Fic = Dir(Range("i1").Value & "\" & Range("e1").Value & "*.xls")
Do until Fic= ""
Tablo(ubound(tablo)) = "'[" & Range("i1").Value & "\" & Fic & "]RFM_Input'!a8:d93"
Fic = Dir
Redim preserve Tablo(0 to ubound(tablo)+1)
Loop
if ubound(tablo)>0 then Redim preserve Tablo(0 to ubound(tablo)-1)
Selection.Consolidate Sources:=Tablo, _
Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
End Sub