Private Sub CommandButton1_Click()
Dim fichier$, macro$, wb As Workbook
fichier = "GTA_Test.xlsm"
macro = "GTA"
Me.Hide
On Error Resume Next
Set wb = Workbooks(fichier)
If wb Is Nothing Then Workbooks.Open ThisWorkbook.Path & "\" & fichier
Run fichier & "!" & macro
End Sub