Commande plusieurs macro

Sub Macro1()
On Error GoTo Fin
' Ta macro
Fin:
End Sub

Sub Macro1()
On Error GoTo Fin
' Ta macro
Exit Sub
Fin:
MsgBox "La Macro1 a échoué" & vbCrLf & Err.Description, vbExclamation + vbOKOnly
End Sub

Sub Macro1()
Dim X As Byte
On Error GoTo Fin
' Ta macro
Sheets("jghjk").Select
Exit Sub
Fin:
X = MsgBox("La Macro1 a échoué" & vbCrLf & Err.Description, vbExclamation + vbAbortRetryIgnore)
If X = 3 Then
End
' quitte toutes les macros
ElseIf X = 4 Then
' code pour réessayer de lancer Macro1
Else
Exit Sub
' Continue en quittant cette Sub et en retournant à ta macro principale
End If
End Sub