Aide pour me dépanner sur une procédure

Salut a toute et tous.

Je ne sais si vous allé pouvoire m'aider, mais je suis vraiment bien embété
et je n'arrive pas a me dépatouiller d'un truc qui fonctionné.

Cela fait prés de 5 Ans que j'utilise un fichier EXCEL pour générer des
feuilles, pour des spéctacles de danse ou autres, et la cela bloque sur la
procédure de vérification des fichiers audio dont le nom me sert a remplire
mes feuilles.

Donc voici comment je manipule cela .

1) J'ai un bouton qui lance la procédure "RecupDonneesBallets"

2) Cela m'ouvre une fenetre de sélection du dossier principale : Spectacle
années en cours.

3) La je sélectione le dossier de ma prestation (Chaque dossier de
prestation est constituer de la même manière):

Dans ce dossier il y a :

a) Tous les dosseir par professeurs avec leur musques dedans au format MP3
b) Un dossier "Musiques pour le gala" qui me sert pour la suite de la
procédure.

Et dans ce dossier il y a X parties de la prestation (Cela me sert a
remplire des informations dans les feuilles):

Partie 1
Partie 2
Partie 3


Et dans chaque partie il y a le nom de chaque professeurs de danse (Cela me
sert a remplire des informations dans les feuilles)

Et dans chaque dossiers il y a des fichier musiquaux, donc ces fichier me
sservent juste a extraire le nom du fichier pour remplire des informations
dans les feuilles)

J'espère que c'est claire.

Donc voici la procédure et cela bloque à : With Application.FileSearch.

Et comme erreur j'ai :

Erreur d'éxécution '445'
Cet objet ne gère pas action.



Sub RecupDonneesBallets()
Dim txt As String, i As Long, fil As String
Dim tablo1, tablo2, Organisateurs As String
Dim Annee As String, a As String, b As String, c As String, d As String, e
As String, f As String
Dim g, f1, ligne As Long, choix ', fso, dossier
With Sheets("Tool_Planning")
Application.ScreenUpdating = False
Range("A14:G14").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A14").Select
End With
txt = "Musiques pour le gala"
choix = ChoixDossierFichier("O:\Spectacle années en cours\")
If choix <> "" Then
With Application.FileSearch
.LookIn = choix
.Filename = "*.MP3"
.SearchSubFolders = True
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
fil = .FoundFiles(i)
tablo1 = Split(fil, "\")
tablo2 = Split(tablo1(UBound(tablo1)), "-")
If UBound(tablo1) = 6 And _
UBound(tablo2) = 3 And _
InStr(1, UCase(fil), UCase(txt)) > 0 Then
'Organisateurs
Organisateurs = tablo1(2)
'Année
Annee = tablo1(1)
Annee = Right(Annee, 4)
'A : N° de la partie -> (Donnée récupérée par rapport au dossier)
a = tablo1(4)
a = Application.Substitute(a, "Partie ", "")
'B : N° du ballet -> (Donnée récupérée avec le nom du fichier)
b = tablo2(0)
'C : Nom du prof -> (Données récupérées par rapport au dossier)
c = tablo1(5)
'D : Groupe d 'élève -> (Données récupérées avec le nom du fichier)
d = tablo2(1)
'E : Interprètes -> (Données récupérées avec le nom du fichier)
e = tablo2(3)
e = Left(e, Len(e) - 4)
'F : Titres -> (Données récupérées avec le nom du fichier)
f = tablo2(2)
'G : La durée de la chanson --> (Données récupérées avec le poids du fichier)
'(39934/176400)1024#2 sec soit 3'52 sec
g = FileLen(fil)
g = g / 176400 / 60 / 60 / 24
'NUMEROTATION DES FICHIERS
With Sheets("Tool_Planning")
Application.ScreenUpdating = False
.Range("E6") = Organisateurs
ligne = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1
.Cells(ligne, "A") = a
.Cells(ligne, "B") = b
.Cells(ligne, "C") = c
.Cells(ligne, "D") = d
.Cells(ligne, "E") = e
.Cells(ligne, "F") = f
.Cells(ligne, "G") = g
.Cells(ligne, "G").NumberFormat = "mm:ss"
If Range("A14").Value = 0 Then Exit Sub

Range("A14:G14").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A14"), Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Range("A14").Select
End With
End If
Next i
End If
End With
End If
Application.ScreenUpdating = True
Call creer_feuille

End Sub

J'espère vraiment être assez claire afin que vous puissiez me dépanner, car
la je nage complètement.

Cette procédure je ne l'ai pas écrite et je ne me rappel plus qui me la
faite, c'est un fichier ou beaucoup d'internaute m'ont aidé.

Si besoin est je peux fournire le fichier complet, il n'y a rien de
confidentiel.

Sincères salutations, G'Claire