Recherche fichier et creation de hyperliens

Private Sub CommandButton1_Click()
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", "D:\_PC033_prb\Dokumentation\Daten\daten_prb\Schlamm\EMSR_Doku\") '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", "XLS")
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, 1), Address:=mess & répertoire
'Cells(i, 2) = mess & répertoire
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:=répertoire
'Cells(i, 3) = répertoire
répertoire = Dir
Loop
End Sub