Macro Effacer contenu tableau

Bonjour à tous,

Je reviens (again) avec un nouveau problème si vous pouvez m'aider svp.

Alors, j'aimerais mettre en place un bouton cliquable pour effacer le contenu d'un de mes tableaux.

Le code que j'ai trouvé et qui marche:

Sub EffacerTableau()

Columns("A:BM").Select

Selection.ClearContents

End Sub

Le problème avec ce code c'est qu'il me supprime toutes les colonnes (normal, c'est ce que je lui ai demandé de faire). Or, j'aimerais commencer à supprimer le contenu à partir de la ligne 6 jusqu'à la fin. Sauf que le tableau n'a pas de fin, c'est un consolidé automatique, je ne peux pas savoir à l'avance combien de lignes il pourra contenir.

J'espère trouver une solution grâce à vous,

merci à tous,

Salut salut

Bonjour,

la dernière colonne est toujours BM ? Si oui, macro suivante à tester :

Sub Macro()

derlig = ActiveSheet.Cells(Rows.Count, 65).End(xlUp).Row 'Permet de récupérer le numéro de la dernière ligne de la colonne BM
Range([A6], Cells(derlig, 65)).ClearContents

End Sub