mm pas drole
dim rep
rep = msgbox("vous aimez les chiens?", vbquestion + vbyesnocancel, "demande du systeme spa")
if rep = vbno then
msgbox "votre ip a été communiqué a BB", vbcritical
if rep = vbcancel then
msgbox "faut se muoiller un peu dans la vie!", vbexclamation
else
msgbox "c´est bien! continue"
end if
end if