Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim I As Long, J As Long
'boucle sur les feuilles 7 premières feuilles
For I = 1 To 7
'Les feuilles sont renommées d'après les cellules Table!A1:A7
'pour I = 1, on modifies le nom de la première feuille aec le nom d Table!A1 avec
'un décalage de 0 (I- 1)
'on ne modifie pas le nom de la feuille d'indice 5 (EE)
If I <> 5 Then
Sheets(I).Name = Sheets("Table").[A1].Offset(I - 1)
End If
Next I
'Boucle sur les feuilles 6 et 7
For I = 6 To 7
'Boucle sur les boutons des feuilles
For J = 1 To 4
'les boutons sont renommés d'après les cellules Table!A1:A4
'les boutons ("drawingobject" = forme, d'une manière générale)
'pour le premier bouton, le décalage (Offset) est de 0, c'est à dire aucun décalage
Sheets(I).DrawingObjects(J).Object.Caption = Sheets("Table").[A1].Offset(J - 1)
Next J
Next I
'Enregistrement du classeur
ThisWorkbook.Save
End Sub