sub confirmNavigate(p_question, p_url)
  if MsgBox(p_question, 68, "Demande de confirmation") = 6 then
    window.location = p_url
  end if
end sub