Salut les amis,

Je copie une feuille de travail de mon classeur en créant un nouveau classeur.
Dans le code affecté à cette feuille, se trouvent des procédures évènementielles (Clic sur bouton de commande, évènement Activate...).

J'avais conservé ce code retourné par l'un de mes premiers interlocuteurs, OusKelnor ,

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
Application.EnableEvents = False
 
Dim i As Byte
 
Worksheets("Report").Copy
 
With ActiveWorkbook
    With .VBProject.VBComponents("Report").CodeModule
        For i = .CountOfLines To 1 Step -1
            .DeleteLines i
            DoEvents
        Next
    End With
 
With .Worksheets("Report").UsedRange
.Value = .Value
End With
End With
Erreur d'exécution 9 L'indice n'appartient pas à la sélection.
Je ne comprends pas.

La syntaxe du code aurait-elle changé sur les versions récentes d'Excel?

Merci par avance pour vos lumières.