Encore merci à lami20j ça fonctionne bien et la macro est la suivante :

sub Imp1
dim repMsgBox as string
repMsgBox=msgbox("texte désiré",somme des 3 chiffre de choix, "éventuellement non de msgbox")
if repMsgBox=1 then

(texte de la macro que l'on veut voir exécuter ou non)

elseif repMsgBox=2 then
exit sub
end If
end sub