bonjour,
Un exemple pour le principe :
Public Sub ResetTable()
With ActiveSheet.ListObjects(1)
If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
End With
End Sub
Dans cet exemple la feuille active ne comporte qu'un tableau (sinon, il faut le nommer).
La mise en forme et les formules sont conservées.
Cdlt.