Sub t()
If MsgBox("traitement_1 ?" & Chr(10) & "(si non, traitement 2 !)", vbYesNo) = vbYes Then
MsgBox "on appelle la première macro !", vbOKOnly, ""
'Traitement_1
Else
MsgBox "on appelle la seconde macro !", vbOKOnly, ""
'Traitement_2
End If
End Sub