hello,
pour le copier/coller inspire-toi de cette discussion

Pour la boîte de dialogue ceci pourrait faire l'affaire :


Sub BoiteDeDialogue
If MsgBox("Question à poser ?", 4, "Titre") =...