Renomer page avec valeur d'une cellule

Bonjour,

J'essay de renomer touts les sheet d'un workbook, avec la valeur de leur cellule B2 respective.

Le format de chaque cellul est le suivant "Section 2 Who - All accounts - Recurring charges (account level): 1 record per account", avec un numéro de section different pour chaque sheet et un description differente, je voudrais donce tronqué la cellule après le numéro de section et renomé la sheet avec cette nouvelle valeur.

Voici ce que j'ai écrit mais qui ne fonction pas

'Rename each sheet

For Each ws In ActiveWorkbook.Worksheets
    ActiveCell = Left(Range("B1"), 9)
    ActiveCell = Replace(ActiveCell, " ", "")
    ws.Name = ws.Range("B1").Value
    Range("1:1").Delete

Next

Salut,

[EDIT]

Bonjour tuytuy,

Essaie comme ça :

    'Rename each sheet

    For Each ws In ActiveWorkbook.Worksheets
        ws.Name = Replace(Left(ws.Range("B1"), 9), " ", "")
    Next