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