Renommer onglet par macro ?

Sub initialise()
Dim sh As Variant
Dim i As Integer
i = 0
For Each sh In Worksheets
   i = i + 1
   sh.Name = "Feuil" & i
Next


End Sub

Sub TrouveFeuille()
Dim nomFeuille As String ' variable qui va contenir "bidule" : le nouveau nom de la feuille
Dim sh As Worksheet '
nomFeuille = ActiveSheet.Range("b7")  ' la cellule B7 contient ton nom de feuille
If nomFeuille="" then nomFeuille="Feuil3" ' si il y a n'importe quoi dans la cellule...

For Each sh In Worksheets
    If sh.CodeName = "Feuil3" Then
       sh.Name = nomFeuille
       sh.Select
       Exit For  ' on a trouvé on quitte
    End If
Next sh

End Sub

Sub initialise()
Dim sh As Worksheet
For Each sh In Worksheets
    If (sh.CodeName <> "Feuil1") And (sh.CodeName <> "Feuil2") Then
       sh.Name = sh.CodeName
    End If
Next sh
End Sub

Sub initialise()
Dim sh As Worksheet
For Each sh In Worksheets
    If (sh.Name = "type") And (sh.CodeName = "accueil") Then ' le nom de tes feuilles
     else
       sh.Name = sh.CodeName
    End If
Next sh
End Sub

Sub test()
Dim nomFeuille As String
Dim sh As Worksheet
nomFeuille = Sheets("acceuil").Range("C13").Value ' le nom de la feuille est récupéré là

If nomFeuille = "" Then Exit Sub ' si il y a un vide on quitte
    For Each sh In Worksheets
        If sh.CodeName = "Feuil3" Then
            sh.Name = nomFeuille
            sh.Select
            Exit For ' on a trouvé on quitte
        End If
    Next sh

End Sub