Private Sub CloseWindows()
Do
[code=VB]Private Sub CloseWindows()
Do
FenRun = FindWindow(vbNullString, "Afficher les runs")
Call PostMessage(FenRun, WM_CLOSE, 0, vbNull)
DoEvents
Loop While FenRun <> FindWindow(vbNullString, "Afficher les runs")
End Sub