Bonjour,

Je reprends comme chaque année un fichier composé de code macro. Jusqu'ici sans encombre

Ce fichier est construit de la façon suivante
1 onglet reprenant les données des 4 ou 5 onglets le précédant
Le premier onglet reprend le nom du mois en fonction d'une cellule
Les onglets suivants reprennent les numéros de semaine en fonction de la valeur d'une cellule

Sauf que cette année la macro en erreur 1004 avec pour intitulé "impossible de renommer une feuille comme une autre feuille, ......"

voici le code

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub ms()
Dim K As Long
Dim i As Long
Dim j As Long
Dim l As Long
 
Application.ScreenUpdating = False
 
 
K = Worksheets(9).Cells(8, 37).Value
 
 
Worksheets(9).Name = Worksheets(9).Cells(5, 37).Value
  For i = 2 To 7
 Worksheets(i).Name = Worksheets(i).Cells(6, 1).Value
            If Worksheets(i).Cells(19, 3).Value = 0 Then
            Worksheets(i).Visible = False
            Else
            Worksheets(i).Visible = True
            For j = 1 To 9
 
            Worksheets(j).Tab.ColorIndex = (K)
            Next j
 
             End If
        Next i
 
            For j = 11 To 108
    If Cells(6, j) = "x" Then
    Columns(j).Hidden = True
    Else
    Columns(j).Hidden = False
 
    End If
         Next j
 
            For l = 18 To 210
            If Cells(l, 107) = "X" Then
            Rows(l).Hidden = True
            Else
            Rows(l).Hidden = False
            End If
            Next l
 
 
Range("K15").Select
 
Application.ScreenUpdating = True
 
 
End Sub
L'erreur se déclenche sur la ligne 15 de ce code.

Merci de votre aide