Bonjour à tous,
depuis un arret de plus de 10 ans, je me remet un peu sur VBA.
J'ai écrit une procédure sur xl 2016 qui créer un nouveau classeur, supprime les feuilles à partir de la 3ème et renomme les feuilles 1 et 2.
mais quand je teste, j'ai une erreur d'exécution n°9 qui se met. J'ai regardé sur le forum les indications mais celà ne marche toujours pas. Voici ma procédure:
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
Sub CreerClasseur()
    Dim Classeur As Workbook
    Dim i As Integer
     
    'Création d'un nouveau classeur
    Set Classeur = Application.Workbooks.Add
    
    'Suppression des feuilles à partir de la 3ème
    With Classeur
        'Désactiver les messages d'alerte d'Excel
        Application.DisplayAlerts = False
        For i = 3 To .Worksheets.Count
           .Worksheets(i).Delete
        Next i
        'Affectation des noms aux feuilles 1 et 2
        .Worksheets(1).Name = "Ventes Années 2017"
        .Worksheets(1).Name = "Ventes Années 2018"
        .SaveAs ThisWorkbook.Path & "/" & "Historique"
    End With

End Sub

et ça bloque sur ".Worksheets(i).Delete" après la 4ème ou 5ème boucle
merci pour votre réponse et que la paix soit avec vous