MACRO pour excel 2007 demande d'aide!

Option Explicit

Sub TestListeFichiers()
Dim Dossier As String
    
'Définit le répertoire pour débuter la recherche de fichiers.
'(Attention à ne pas indiquer un répertoire qu contient trop de sous-dossiers ou de
'fichiers, sinon le temps de traitement va être très long).
'Dossier = "C:\Documents and Settings\mimi\dossier"

'supprime toutes les données des colonnes A à E
    'pour annuler cette fonctionnalité, il suffit de mettre une apostrophe en début de ligne
Columns("A:E").Delete
[A1] = "Nom du fichier"
[B1] = "Date création"
[C1] = "Dernier accès le"
[D1] = "Dernière modif"
[E1] = "Chemin d'accès (répertoire)"

Application.FileDialog(msoFileDialogFolderPicker).Show
Dossier = Application.FileDialog(msoFileDialogFolderPicker).InitialFileName
'Appelle la procédure de recherche des fichiers
ListeFichiers Dossier
'Ajuste la largeur des colonnes A:E en fonction du contenu des cellules.
Columns("A:E").AutoFit
MsgBox "Terminé"
End Sub


Sub ListeFichiers(Repertoire As String)
    '
    'Nécessite d'activer la référence "Microsoft Scripting RunTime"
        'Dans l'éditeur de macros (Alt+F11):
        'Menu Outils
        'Références
        'Cochez la ligne "Microsoft Scripting RunTime".
        'Cluquez sur le bouton OK pour valider.    
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
Dim i As Long
    
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(Repertoire)
    
'Récupère le numéro de la dernière ligne vide dans la colonne A.
i = Range("A" & Rows.Count).End(xlUp).Row + 1
'Boucle sur tous les fichiers du répertoire
For Each FileItem In SourceFolder.Files
    'Si l'extension est pdf
    If Right(FileItem.Name, 3) = "pdf" Then
        'Inscrit le nom du fichier dans la cellule
        Cells(i, 1) = FileItem.Name
        'Ajoute un lien hypertexte vers le fichier
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
            Address:=FileItem.ParentFolder & "\" & FileItem.Name
        'Indique la date de création
        Cells(i, 2) = FileItem.DateCreated
        'Indique la date de dernier acces
        Cells(i, 3) = FileItem.DateLastAccessed
        'Indique la date de dernière modification
        Cells(i, 4) = FileItem.DateLastModified
        'Nom du répertoire
        Cells(i, 5) = FileItem.ParentFolder
        i = i + 1
    End If
Next FileItem

'--- Appel récursif pour lister les fichier dans les sous-répertoire ---.
For Each SubFolder In SourceFolder.SubFolders
    ListeFichiers SubFolder.Path
Next SubFolder
End Sub