En fait, il semble bien que ton browseforfolder ne soit pas en cause, mais que ce soit la suite des opérations qui coince, lorsque tu tentes de faire un chdir.
Comme je n'y connais rien en réseau, je ne peux pas te conseiller beaucoup plus, mais tu devrais décomposer tes instructions comme ça :
Sub Ouvrir_02_REFERENCE_Par_Choix_Dossier()
Dim Msg As String, Rep As String
Dim MonDoc As String
MonDoc = "02 REFERENCE.xls"
Msg = "Please select a location for " & MonDoc
Rep = GetDirectory(Msg)
ChDir Rep
Workbooks.Open Filename:=MonDoc, _
UpdateLinks:=3
End Sub
Ensuite en mode déboggage, tu peux déjà regarder si la chaine renvoyée dans Rep n'est pas vide. Dans ce cas, c'est bien le browseforfolder qui pose problème. Sinon, à toi de voir comment accéder aux lecteurs réseau. Peut-être en passant par l'objet FileSystemObject ? Suite dans 3 ou 4 mois quand j'aurai mon propre réseau...