VBA : lancer une ligne de commande

Sub test()
    
    Dim appli As String
    Dim fichier As String
    
    appli = "C:\apng2gif.exe"
    fichier = DOSSIER_LOGOS & "toto.png"
    'DOSSIER_LOGOS est une fonction qui retourne
    'le chemin du dossier (en String), ce chemin
    'contient des espaces
    
    Shell "C:\WINDOWS\system32\cmd.exe " & appli & " " & """ & fichier & """, vbMinimizedNoFocus
End Sub

Function DOSSIER_LOGOS() as String
DOSSIER_LOGOS = ThisWorkbook.Path & "\Images\Logos\"
End Function

MsgBox DOSSIER_LOGOS

Public Sub prcStartMSConfig64Cmd()
 Const WND_HIDE As Integer = 0
 Dim objWshShell As Object
 Set objWshShell = CreateObject("WScript.Shell")
 objWshShell.Run "%windir%\Sysnative\cmd.exe " & _
     "/C start c:\apng2gif.exe c:\toto.png", WND_HIDE, True 'j'ai modifié uniquement cette ligne
 Set objWshShell = Nothing
End Sub

Sub Test(Str_Fichier as String)
'Str_Fichier contient le chemin complet vers un fichier
    
    Dim appli As String
    Dim Fichier As String
    Dim commande As String

    appli = DOSSIER_LOGOS & "apng2gif.exe"
    Fichier = DOSSIER_LOGOS & Str_NomFichier

    commande = "cmd /C start " & appli & " " & Fichier
    
    Shell commande, vbMinimizedNoFocus
End Sub

appli = "C:\apng2gif.exe"

commande = "cmd /c start " & """" & appli & """" & " " & """" & Fichier & """"
Debug.Print commande

cmd /c start "D:\99 - Système\Utilisateurs\Moi\Bureau\Dossier Appli\Images\Logos\apng2gif.exe" "D:\99 - Système\Utilisateurs\Moi\Bureau\Dossier Appli\Images\Logos\58.png"

Shell commande, vbMinimizedNoFocus