Sub RemettreEnPlaceNumerosIndex() ' Remettre En Place Numeros Index. Faire plusieurs fois si nécessaire
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
ws.Parent.VBProject.VBComponents(ws.CodeName).Properties("_CodeName") = "Feuil" & I + 1 'Le code Index va jusqu'à 9 Feuilles puis retourne après la Feuille1 pour Feui10 Feuil11 Feuil12 etc...
I = I + 1
Next ws
End Sub