Donner un nom à un onglet

Salut Christian

Le fichier que tu as joint ne sert strictement à rien, tes explications suffisent amplement.
Pour ta gouverne dans Excel pour être précis on parlera plutôt de "Feuille" que "d'Onglets".

Ceci dit, c'est assez simple en VBA de renommer des feuilles avec un code comme ceci :

Sub Renommer()
Sheets("Feuil2").Name = Sheets("Feuil1").Range("A1").Value
Sheets("Feuil3").Name = Sheets("Feuil1").Range("A2").Value
End Sub

Là où c'est un peu plus compliqué c'est de renommer toutes les feuilles du classeur sans connaitre leur nom et en bouclant sur une plage de cellules.
Voici une méthode :

Sub RenommerTouteLesFeuilles()
Dim WS As Worksheet
Dim i As Byte
i = 1
For Each WS In Sheets
If WS.Name <> "Feuil1" Then
WS.Name = Sheets("Feuil1").Range("A" & i).Value
i = i + 1
End If
Next
End Sub


Bon Week End
@+Thierry

Tiens, en répondant à William à l'instant.. Je suis repassé par là... A en croire que ma réponse ne devait pas convenir...

@+Thierry Soupir