Suppression d'un dossier dans une procédure de recherche

J'aimerai poser une petite question... Car là, je suis encore sur un
"paradoxe".
Je voudrais faire en sorte que quand un dossier recherché à été trouvé,
un dossier (différent du premier) soit supprimé. J'utilise alors le "fso.deletefolder".
Pourtant, dans la procédure sub, ca ne marche pas :

Sub ShowSubFolders(Folder, recherche)

For Each Subfolder in Folder.SubFolders
On Error Resume Next
If Subfolder.name = recherche Then
ObjShell.Exec CheminWinRar & " a -r " & chr(34) & Subfolder.path & "\" & nomduprojet & ".rar" & chr(34) & " " & chr(34) & RepSource & chr(34)

suppression = enregistrement & "\" & nomduprojet
set fso=createobject("scripting.FileSystemObject")
fso.deletefolder suppression

exit for
Else
ShowSubFolders Subfolder, recherche
End If
Next
End Sub

Alors que dans un programme de suppression de dossier, ca fonctionne !!

dossier = inputbox ("Dossier à supprimer : ","Suppression d'un dossier","C:\")

set fso=createobject("scripting.FileSystemObject")
fso.deletefolder dossier

Quelqu'un pourrait m'aider s'il vous plait?

 Bonsoir


Hier, je t'ai demandé de mettre des msgbox afin de contrôler le contenu des 3 variables.
Dans ta sub, d'où sort ta variable enregistrement ???

jean-marc

non je suis sur de mes variables, cest la premiere chose ke jai vérifié des 100aines de fois !!! Jcomprends pas