Effacer le contenu cellule rapidement

Salut à Tous,

Est-ce possible d'effacer dans un onglet toutes les données d'un seul clic,

sans la ligne des titres et garder la mise en forme des cellules?

Noter quand temps réel, le fichier contient environ 16,000 lignes.

J'ai besoin de la faire pour les trois onglets séparément.

Merci de votre aide.

Bonjour

Code pour effacer toute une plage

Sub Effacer()
    Sheets("Feuil1").Select
    Range("A2:Z150").ClearContents ' à toi d'adapter la plage
End Sub

Parce que ton site de téléchargement...

Cordialement

Salut Amadéus,

Encore une fois, un GROS MERCI.

Ça fonctionne très bien.

Bonne Soirée.