Dim P As Process() = Process.GetProcesses() Dim i As Integer, N As Integer = P.GetLength(0) Dim Nb As Integer = 0 Dim cP As String = Process.GetCurrentProcess.ProcessName 'récupération de la liste des process For i = 0 To N - 1 Dim pP As Process = P(i) 'Si le process a le nom du process que l'on recherche If pP.ProcessName = "NOM_du_Process" Then While pP.HasExited = False ''boucle tant que le process existe encore End While Exit For End If Next