Nom onglet

Bonjour à tous

je voudrai remplacer les nom des mes onglets par des autres noms:

par exemple : l'onglet nommé 2 je veut qu'elle sera nommé serfil --> les noms existe dans l'onglet nom.

Bonjour

une solution

fred

Sub renomme()
Dim i As Byte
For i = 1 To Sheets("noms").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("" & Sheets("noms").Cells(i, "A") & "").Name = Sheets("noms").Cells(i, "B")
Next
End Sub

MERCI