Ouverture de 2 applications en VBA

Bonjour, je débute en vba et aimerais ouvrir deux application avec le shell , seulement soit il ne m'en ouvre qu'une quand je met cela :

</> Private Sub CommandButton1_Click()
</>On Error GoTo OuvertureFichierErreur
</>Dim MonApplication As Object
</>Dim MonFichier As String
</>Set MonApplication = CreateObject("Shell.Application")
</>MonFichier = "C:\Users\moi\application.exe" And "C:\Users\moi\application2.exe"
</>MonApplication.Open (MonFichier)
</>Set MonApplication = Nothing
</>OuvertureFichierErreur:
</>Set MonApplication = Nothing
</>MsgBox "Erreur lors de l'ouverture de fichier..."
</>End Sub

ou bien il me met "Erreur lors de l'ouverture de fichier…" quand je met cela (j'ai tester différants fichiers pour être sur) :

</>Private Sub CommandButton1_Click()
</>On Error GoTo OuvertureFichierErreur
</>Dim MonApplication As Object
</>Dim MonFichier As String
</>Set MonApplication = CreateObject("Shell.Application")
</>MonFichier = "C:\Users\moi\application.exe"
</>MonApplication.Open (MonFichier)
</>Set MonApplication = Nothing
</>OuvertureFichierErreur:
</>Set MonApplication = Nothing
</>MsgBox "Erreur lors de l'ouverture de fichier..."
</>On Error GoTo OuvertureFichierErreur2
</>Dim MonApplication2 As Object
</>Dim MonFichier2 As String
</>Set MonApplication2 = CreateObject("Shell.Application")
</>MonFichier2 = "C:\Users\moi\application2.exe"
</>MonApplication.Open (MonFichier2)
</>Set MonApplication2 = Nothing
</>OuvertureFichierErreur2:
</>Set MonApplication2 = Nothing
</>MsgBox "Erreur lors de l'ouverture de fichier..."
</>End Sub

Je vous remercie d'avance de vos retour ; )