Sub copieRenomme()
Dim tablo As ListObject
For f = 2 To 26
ThisWorkbook.Sheets(1).Copy after:=Sheets(ThisWorkbook.Sheets.Count)
With ActiveSheet
.Name = Format(f, "00")
For Each tablo In .ListObjects
tablo.Name = Mid(tablo.Name, 1, Application.Find("_", tablo.Name)) & .Name
Next tablo
End With
Next f
End Sub