Bonjour FlavienP et le fil
Sub GetTableNameDontDelete()
' on peut vérifier le nom du tableau via une cellulle ou une range
' A condition que celui ci se trouve toujours à l'emplacement de la cellule ou range donnée
'ici j'ai mis Cells(1, 1) (bien sur faut déclarer la bonne feuille aussi
TableName = Sheets(1).Cells(1, 1).ListObject.Name
MsgBox TableName
'principe sans rentrer dans le détail, on check le nom du tableau supprimer
' si celui-ci est différent de TableName alors on peut supprimer le tableau
' Cela empèche d'effacer le mauvais tableau
If NomDuTableau <> TableName Then
' Code pour supprimer le tableau
End If
' Le 1er tableau créer sur la feuille et toujours le 1
Sheets(1).ListObjects(1).Range.Select
'on peut aussi vérifier le nom du tableau comme ceci
MsgBox Sheets(1).ListObjects(1).Name
End Sub
Bonne soirée