Erreur non résolue

bonjour , je me trouve un peu embeté devant une erreur d'execution du code suivant , depuis mon classeur A j'execute une commande de suppression de feuille se trouvant dans le classeur B

Workbooks.Open Filename:=chemin & "\B.xls"

Set Wkb = Workbooks("A.xls").Sheets("Correction")
    S = Wkb.Range("L17")
    Workbooks("B.xls").Activate
    Workbooks("B.xls").Unprotect "papillon"

For Each feuille In Worksheets
On Error Resume Next
    If (feuille.Name) = Wkb.Range("L17") Then

feuille.Delete      ' le probleme se trouve à cette ligne avec l'indication "erreur 1004" la cellule ou le graphique est protegé 
        Exit For
    End If
Next feuille

pourtant j'ai bien deprotegé B avec l'instruction :

 Workbooks("B.xls").Unprotect "papillon"

j'avoue ne pas comprendre !

Auriez vous une idée sur l'origine possible de cette erreur ?

Merci

Bonjour,

ça ne règlera pas ton pb (quoique...) mais pourquoi tu ne fais pas directement :

Sheets(Wkb.Range("L17")).Delete

plutôt que de balayer toutes les feuilles ?

Joint un extrait de ton fichier.

eric

merci pour ta solution , mais elle ne retire pas la feuille de B nommée comme la cellule L17 de A , j'aimerai plutot comprendre ce qui

fait que l'instruction " feuille.Delete " engendre une erreur 1004 se rapportant à un probleme de protection de cellule vu que L17 n'est

de plus , une cellule verrouillée .....

C'est quand tu veux pour joindre ton fichier.

On est en panne de devins ici...

eric