Option Explicit
Sub test()
Dim MonRepertoire As String, fso As Object, f As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
MonRepertoire = "H:\data\Adélie\RECHERCHE MACRO BUDGET 2009\FICHIERS 1st submission\ALL TEMPLATES\MAINTENANCE\Templates maintenance\"
For Each f In fso.GetFolder(MonRepertoire).Files
If Right(f.Name, 4) = ".xls" Then Workbooks.Open MonRepertoire & f.Name
Next f
End Sub