Sub Ouvre_Fichier2()
Dim Wk As Object
Dim rep As Object
Dim Chemin As String
Chemin = ThisWorkbook.Path
Set rep = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Wk In rep.Files
If Wk.Name <> ActiveWorkbook.Name Then Workbooks.Open Filename:=Wk
Next
End Sub