Sub Start()
Dim Message As String, Title As String, Default As String, MyValue As String' Définit le message.
Message = 'Encoder O pour archiver globalement ou N pour archiver feuille à feuille'
Title = 'Choix des options'
Default = 'O' 'Définition la valeur par défaut.
MyValue = InputBox(Message, Title, Default)
If MyValue = 'O' Then Archive 'exécute la macro Archive
If MyValue = 'N' Then Archive 'exécute la macro archivage feuille à feuille
Msg = 'Redémarrage par CTRL e' 'Définit le message.
Style = vbOKOnly + vbInformation
Title = 'Message' ' Définit les titres.
Answer = MsgBox(Msg, Style, Title)
End Sub