tu peux tester cette procedure (à partir de Windows2000)
Sub fermerUneApplication()
Dim objProcess As Object
Dim colProcessList As Object
Dim objWMIService As Object
Dim strComputer As String
strComputer = '.'
Set objWMIService = GetObject('winmgmts:' _
& '{impersonationLevel=impersonate}!\\\\\\\\\\\\\\\\' & strComputer & '\\\\\\\\root\\\\\\\\cimv2')
Set colProcessList = objWMIService.ExecQuery _
('Select * from Win32_Process Where Name = 'MSIMN.EXE'')
For Each objProcess In colProcessList