Private Sub bouton1_clic()
Call Procedure(0)
End Sub
Private Sub bouton2_clic()
Call Procedure(1)
End Sub
Sub Procedure(x%)
'...
If x = 0 Then
MsgBox "Je m'arrête ici"
Exit Sub
End If
'...
MsgBox "Ou alors là"
End Sub
Sub bouton1_Clic()
test
End Sub
Sub bouton2_Clic()
test
End Sub
Sub test()
msgbox "Partie commune aux 2 boutons"
If Application.Caller = "Bouton 1" Then Exit Sub
msgbox "Partie réservée au bouton 2"
End Sub