test = MsgBox('Recalcul de l'indicateur terminé! Retour au menu?', vbYesNo)
If test = vbYes Then
Accueil.MultiPage1.Value = 1
Accueil.Show
ElseIf test = vbNo Then
Exit Sub
End If
test = MsgBox('Recalcul de l'indicateur terminé! Retour au menu?', vbYesNo)
If test = vbYes Then
Accueil.MultiPage1.Value = 1
Accueil.Show
Accueil.MultiPage1.Value = 0
ElseIf test = vbNo Then
Exit Sub
End If