Dim marche As Boolean 'mémorise
Sub Lancer()
With ActiveSheet.DrawingObjects("Bouton 1")
marche = .Text = "Marche"
.Text = IIf(.Text = "Arrêt", "Marche", "Arrêt")
End With
Application.OnTime 1, "Espion"
End Sub
Sub Espion()
If Not marche Then Exit Sub
Dim n%, nom$, id%, t
With ActiveSheet
n = Sheets.Count
nom = .Name
id = .Index
t = Timer + 0.5
While Timer < t
DoEvents
If Sheets.Count > n Then _
MsgBox "'" & ActiveSheet.Name & "' ajoutée...", , "Feuille": GoTo 1
If Sheets.Count < n Then _
MsgBox "'" & nom & "' supprimée...", , "Feuille": GoTo 1
If .Index <> id Then _
MsgBox "'" & nom & "' déplacée...", , "Feuille"
If .Name <> nom Then _
MsgBox "'" & nom & "' renommée en '" & .Name & "'...", , "Feuille"
Wend
End With
1 Espion
End Sub