Sub Report()
'
' Report Macro
' Macro enregistrée le 21/11/2012 par Edmond
'
'régler la durée
If MsgBox("Souhaitez-vous un rappel ?", vbYesNo, "Redemander dans 15 secondes") = vbNo Then Exit Sub
Application.OnTime Now + TimeValue("00:00:15"), "mess_04a"
Sheets("Accueil").Select
ActiveSheet.Unprotect
Sheets("Accueil").Range("E10") = "Mise à jour des Données 'CONSENSUS' reportée"
ActiveSheet.Protect
'Range("A10").Select
End Sub