XL 2010 Savoir si la calculatrice est présente ou pas

Private Sub Bouton_Calculatrice_Click()
   On Error Resume Next
   AppActivate "Calculatrice"
   If Err Then Shell "C:\Windows\System32\calc.exe", 1
   End Sub

Option Explicit

Sub test()
    MsgBox CalculatriceActive
End Sub

'------------------------------------------
'Retourne VRAI si calc.exe est présent dans
'les processus du Gestionnaire de Tâches
'------------------------------------------
Function CalculatriceActive() As Boolean
    Dim T() As Variant
    Dim i As Integer
   
    T = TaksManagerProcessIDList
   
    For i = 1 To UBound(T, 1)
        If T(i, 1) = "calc.exe" Then Exit For
    Next i
   
    If i <= UBound(T, 1) Then CalculatriceActive = True    
End Function

'--------------------------------------------------
'Retourne un tableau des noms de programmes du
'Gestionnaire de tâches et leur process ID associés
'--------------------------------------------------
Function TaksManagerProcessIDList() As Variant()
    Dim Process As Object
    Dim T() As Variant
   
    For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")
        If Not (Not T) Then
            ReDim Preserve T(1 To 2, 1 To UBound(T, 2) + 1)
        Else
            ReDim T(1 To 2, 1 To 1)
        End If
       
        T(1, UBound(T, 2)) = Process.Caption
        T(2, UBound(T, 2)) = Process.ProcessId
    Next
   
    TaksManagerProcessIDList = Application.Transpose(T)
End Function

Sub test()
    calculatrice
End Sub

Function calculatrice()
Dim Process As Object, x As Boolean
    For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")
        If Process.Caption = "calc.exe" Then
            Process.Terminate: Exit Function
        End If
    Next
     Shell "C:\Windows\System32\calc.exe", 1
End Function

Private Sub Bouton_Calculatrice_Click()

    Application.ActivateMicrosoftApp Index:=0
    
End Sub