Macro excel 2003

Function recherchedossier()  
'Auteurs: @+thierry_xld et michel_m  
Dim ObjShell As Object, ObjFolder As Object  
Dim Message As String  
Dim Chemin As String  
      
Message = "Faire la Sélection du Repertoire de sauvegarde:"  

Set ObjShell = CreateObject("Shell.Application")  
Set ObjFolder = ObjShell.BrowseForFolder(&H0&, Message, 1)  
      
    On Error Resume Next 'Si on sort sans sélection  
    Chemin = ObjFolder.ParentFolder.ParseName(ObjFolder.Title).Path & ""  
    If Chemin = "" Then End  
    recherchedossier = Chemin  
End Function

sub test() 
lecheminchoisi=recherchedossier 
msgbox lecheminchoisi
end sub