Bonjour,
une autre solution à coller dans le code de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
i = 7 'i = ton nom de feuille commences à la 7ème ligne
a = 1
Do While Cells(i, 3) <> ""
nom = Cells(i, 3) 'ton nom de feuille est à la ligne i, 3ème colonne
Sheets(a).Name = nom
i = i + 1
a = a + 1
Loop
End Sub