Remplacer les Feuil1 par ActiveSheet dans toutes ces lignes
Sub MAJ()
Feuil1.Shapes(nomess).Delete
'ta mise ? jour ici
Beep
MsgBox "Mise ? Jour"
End Sub
Sub annule()
On Error Resume Next
Application.OnTime temps, "MAJ", , False
Feuil1.Shapes(nomess).Delete
End Sub