Simplifier code pour effacer une feuille

bonjour,

Je souhaite effacer feuille depuis Userform, le 1ère fonctionne de n'importe quel endroit, que se soit UserForm ou autres Feuilles

Sub Efface_feuille()
("Etiquettes").Select
    Range("A1:C21").Select
    Selection.ClearContents
    Range("A1").Select
Sheets("---Dashboard---").Select
End Sub

mais pas la 2è

Sub Efface_feuille2()
With Sheets(6)
    Range("A1:D12").ClearContents
    Range("A1").Select
End With
Sheets("---Dashboard---").Select
End Sub

Je souhaite avoir un code simplifié au maximum.

Merci de votre aide

Frederique

Bonjour

fredoud a écrit :

le 1ère fonctionne de n'importe quel endroit,

Il ne manque pas un Sheets ?

Essayes

    Sub Efface_feuille()
    Sheets("Etiquettes").Range("A1:C21").ClearContents
    Sheets(6).Range("A1:D12").ClearContents
     ' Si tu veux aller dans la page 
     ' Inutile si tu es déjà dans cette page
    Sheets("---Dashboard---").Select
    End Sub