Effacer plages dans plusieurs feuille en meme temps

Bonjour

Le code ci-dessous bug ,je cherche a effacer la même plage dans différentes feuilles

Ou est mon erreur?

Je vous remercie

Private Sub CommandButton2_Click()
 If MsgBox("Etes-vous certain de vouloir supprimer les résultats ?", vbYesNo, "Demande de confirmation") = vbYes Then
Sheets("POULE POUSSINS", "POULE BENJAMINS", "POULE MINIMES").Range("J2:K16").ClearContents
MsgBox "Les résultats ont été effacé !"
End Sub

Salut Joco,

Tu dois effacer les plages individuellement.

Private Sub CommandButton2_Click()
    If MsgBox("Etes-vous certain de vouloir supprimer les résultats ?", vbYesNo, "Demande de confirmation") = vbYes Then
        Sheets("POULE POUSSINS").Range("J2:K16").ClearContents
        Sheets("POULE BENJAMINS").Range("J2:K16").ClearContents
        Sheets("POULE MINIMES").Range("J2:K16").ClearContents
        MsgBox "Les résultats ont été effacés !"
        Unload Me
    End If
End Sub

Et ne pas oublier de terminer ton instruction ''If'' par ''End If''.

Cordialement.

Bonjour Yves,

Merci pour ton aide ,

c'est le code que j'avais et que j'essayais de modifier pensant que l'on pouvait le simplifier

Crdlt