BOUTON EFFACER FEUILLE

[Fidmo]

Bonjour Cher(e)s Amis,
Encore une fois ayant besoin de votre aide précieuse je joins mon Fichier qui comporte 24 feuilles où j'ai besoin de création d'un bouton qui permet d'effacer tout le contenu de chaque feuille uniquement.
En cliquant sur le bouton que j'ai eu grasse à la collaboration de notre Cher Lone-wolf vous remarquerez qu'il efface toutes les 24 feuilles du classeur chose qui me fait perdre les données précédentes.
Je souhaite avoir un bouton qui efface le contenu de sa propre feuille seulement, est-ce possible?
Dans l'attente d'une aimable aide bonne journée et Merci d'avance.
Fidmo

 

[M12]

Bonjour,
Tu remplaces la macro du module existant par ceci

Sub Efface_Tout()
Dim Ws As Worksheet, x&

    Application.ScreenUpdating = False

   
        With ActiveSheet
            x = .Range("a" & Rows.Count).End(xlUp).Row
            .Range("a" & x).End(xlUp).CurrentRegion.Offset(1).ClearContents
        End With
   
End Sub

 

[Fidmo]

Bonjour Cher M12,
Un Grand Merci pour votre réponse si rapide. C'est parfait. Mon problème est résolu.
Bien cordialement et bonne fin de journée Cher Ami.
Fidmo