Hi Jean,
Can you try to change your code as below
Public Sub cherche_fichier()
Dim ShowFolderBrowserThread As Threading.Thread
Try
ShowFolderBrowserThread = New Threading.Thread(AddressOf ShowFolderBrowser)
ShowFolderBrowserThread.SetApartmentState(System.Threading.ApartmentState.STA)
ShowFolderBrowserThread.Start()
ShowFolderBrowserThread.Join()
Catch ex As Exception
SBOAppli.MessageBox("cherche_fichier" & ex.Message)
End Try
End Sub
Regards
Edy