Bonjour à tous,

Le code ci-dessous pose problème.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Sub NouvellesSeances()
Dim NomFeuille As String
Dim An As Integer
Dim Couleur
 
  Couleur = Array(3, 5, 43, 6, 7, 33, 29, 27, 38, 46, 26, 6)
  With ActiveSheet
    An = Val(Split(.Name, " ")(1))
    If An = 0 Then
      MsgBox "Nom de La Feuille non Conforme"
      Exit Sub
    End If
    .Unprotect
    NomFeuille = "Seances " & An + 1
 
    .Copy after:=Sheets(Sheets.Count)
    .Shapes("SéancesPlus").Delete
    .Protect
  End With
  With ActiveSheet
    .Name = NomFeuille
    .Tab.ColorIndex = Couleur((An - 2000) Mod 12)
  End With
End Sub
Avant je travaillais avec des Années et maintenant avec des Séances et la macro ne reconnait plus ses "petits"!!!

Quelqu'un pour résoudre mon problème?
Merci d'avance à vous