Sub Renommer()
Dim lig&, n%, nom$
lig = 3
On Error Resume Next 'si le nom est déjà attribué à une autre feuille
For n = Sheets("front").Index + 1 To Sheets("back").Index - 1
nom = Sheets("Centre de coûts").Cells(lig, 2)
If nom <> "" Then Sheets(n).Name = Left(nom, 31)
lig = lig + 1
Next
End Sub