Sub KillProcessus(ByVal NomDuProcessus As String)
'ceci supprimera tous les processus de ce nom (voir exemple)
Dim p() As ProcessDim r As Process
p = Process.GetProcessesByName(NomDuProcessus)
For Each r In p
r.CloseMainWindow()
r.Kill()
Next
End Sub
Sub Exemple()
KillProcessus("Excel")
'KillProcessus fermera toutes les instances d'excel ouvertes
End Sub