Un bouton avec la Procédure : Table_Clear ("Tbl_Saison_2")
adaptation d'une procédure de Pierre Fauconnier Le Fil
VB:
Sub Table_Clear(Tablename As String)
Application.ScreenUpdating = False
If Not Range(Tablename).ListObject.DataBodyRange Is Nothing Then Range(Tablename).ListObject.DataBodyRange.Delete
Application.ScreenUpdating = True
End Sub