Bonjour à tous,

j'ai une erreur d'execution "automation" '-2147221080 (800401a8)' dans le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
    'supprime les feuilles des jours
For Each Feuille In Worksheets
    For Each Machine In Array("U1", "U2", "U3", "U4", "F2")
        For Each Cherche In Array("SAM", "DIM", "LUN", "MAR", "MER", "JEU", "VEN")
            If Left(InStr(1, Feuille.Name, Cherche, 1), 3) > 0 Then
                Application.DisplayAlerts = False
                Worksheets(Feuille.Name).Delete
                Application.DisplayAlerts = True
            End If
        Next Cherche
    Next Machine
Next Feuille
L'erreur me montre la ligne avec la commande If(Left(InStr...

Je ne connais pas ce type d'erreur, et je vois où peut être mon erreur.

Merci d'avance pour vos éclaircicments...

AD