Private Sub B_Rep_Click()
'Validation repertoire
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir le répertoire de l'affaire", &H210&, "S:\Genie Climatique\SA\")
On Error Resume Next
Set oFolderItem = objFolder.items.Item
Chemin = oFolderItem.Path
CheminRepAf = Chemin
End Sub