Beug sur code pour effacer

Bonjour

J'ai un beug sur ce code 2ème ligne

Pouvez vous m'aider à le résoudre

je vous remercie

Private Sub CommandButton11_Click()
WorksSheets("Poule A", "Poule B", "Poule C", "Poule D", "Poule E", "Poule F").Unprotect 0
If MsgBox("Etes-vous certain de vouloir supprimer les résultats ?", vbYesNo, "Demande de confirmation") = vbYes Then
Worksheets("Poule A").Range("J2:K11").ClearContents
Worksheets("Poule B").Range("J2:K11").ClearContents
Worksheets("Poule C").Range("J2:K11").ClearContents
Worksheets("Poule D").Range("J2:K11").ClearContents
Worksheets("Poule E").Range("J2:K11").ClearContents
Worksheets("Poule F").Range("J2:K11").ClearContents
    MsgBox "Les résultats ont été effacés!"
    End If
Worksheets("Poule A", "Poule B", "Poule C", "Poule D", "Poule E", "Poule F").Protect 0
End Sub

Bonjour Joco7915

Worksheets

Un "s" en trop

A+

Bonjour BrunoM45

Merci pour ta réponse mais j'ai toujours un beug voir la photo d'écran

Re,

Désolé, j'ai répondu trop vite, vous ne pouvez pas exécuter l'instruction Unprotect de cette manière

Vous devez passer par une boucle

  Dim WsArray, Ws As Worksheet
  Set WsArray = Sheets(Array("Poule A", "Poule B", "Poule C", "Poule D", "Poule E", "Poule F"))
  For Each Ws In WsArray
    Ws.Unprotect
  Next Ws

A+

Re

merci pour ton aide tout fonctionne normalement

Bonne soirée