Nom du tableau égale Nom de l'onglet

Bonjour à toutes et tous,

Auriez vous une solution à me proposer pour que dans le cas de mes données mises sous forme de tableau, le nom du tableau soit égale au nom de l'onglet qui héberge le tableau ?

Et cela pour tous le classeur sur chaque feuilles qui portent un tableau, le nom du tableau doit porter le nom de la feuille ou se situe le tableau.

Ainsi par exemple sur feuille X si nom onglet "JANVER" alors nom tableau feuille X "JANVIER; sur feuille Y si nom onglet "FEVRIER" alors nom tableau feuille Y "FEVRIER3" et ainsi de suite.

Ci-joint un classeur exemple.

Merci

Très cordialement

Hugues

Bonjour,

Sub RebaptiserLesTableaux()

Dim I As Integer

    For I = 1 To Sheets.Count
        With Sheets(I)
             If .ListObjects.Count > 0 Then .ListObjects(1).Name = .Name
        End With

    Next I

End Sub

Bonjour Eric,

Merci beaucoup c'est juste parfait; la macro résout totalement mon problème.

Très cordialement

Hugues