Sub Lister_Noms_Et_Ouvrir_Xlsm()
Dim chemin As String
Dim nomFichier As String
chemin = ThisWorkbook.Path & Application.PathSeparator
nomFichier = Dir(chemin)
i = 1
Do While Len(nomFichier) > 0
ActiveSheet.Range("A" & i + 1).Value = nomFichier
nomFichier = Dir
i = i + 1
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:=Range("A" & i).Value
If Right(Range("A" & i).Value, 4) = "xlsm" Then Workbooks.Open (ThisWorkbook.Path & "\" & Range("A" & i).Value)
Loop
End Sub