Je voudrais lister les fichiers MP3 d'un répertoire et pouvoir mettre un lien hypertexte pointant sur eux

Cette macro met le nom de fichier en colonne A et un lien hypertexte dans la colonne B.

Private sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
 Cancel As Boolean)
 Dim mess As String, mess2 As String, répertoire As String
 Columns(1).Clear
 Columns(2).Clear
 mess = InputBox("entrez le nom du répertoire à explorer", "Chemin du répertoire", _
 "C:\windowstemp") 'ThisWorkbook.Path)
 mess2 = InputBox( _
 "entrez le type de fichier ( _par exemple xls ou mid ou mp3 ou doc ou tmp ou wav etc...)" _
 , "TYPE DE FICHIER", "mp3")
 Application.ScreenUpdating = False
  répertoire = Dir(mess & "*" & mess2, vbDirectory)
  Do While répertoire <> ""
   i = i + 1
   Cells(i, 1) = répertoire
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:=mess &
 répertoire
   Cells(i, 2) = mess & répertoire
   répertoire = Dir
  Loop
 end sub