nom de feuille trop long sous VB

Sub RenameVBComponentsSheets1()
Dim WS As Worksheet
Dim i As Integer

    With ThisWorkbook
        For Each WS In .Sheets
        i = i + 1
            .VBProject.VBComponents(WS.CodeName).Name = 'F' & i
        Next
    End With
End Sub

Cliquez pour agrandir...

Sub RenameVBComponentsSheets2()
Dim WS As Worksheet
  'Attention ceci implique que tu aies des noms d'onglerts de feuilles compatibles sinon çà ne passera pas.
   
    With ThisWorkbook
   
        For Each WS In .Sheets
            .VBProject.VBComponents(WS.CodeName).Name = WS.Name
        Next
   
    End With
End Sub

Cliquez pour agrandir...