Voici la macro:
Sub TestActu()
MsgTimed "Attention, vous allez Actualiser!", 3, "Alert", vbInformation
'MsgBox ("Attention, vous allez Actualiser!")
If MsgBox("Voulez-vous actualiser", vbYesNo, "Actualisation") = vbNo Then Exit Sub
If vbYes Then Application.Run "Actualiser"
End...