Private Sub Worksheet_Change(ByVal Target As Range)
Dim Feuil1 As Range
Set Feuil1 = Worksheets("Feuil1").Range("A1")
'Procédure à placer dans le module de l'onglet destiné à renommer la Feuil1
' B13 contient le texte NouveauNom
On Error Resume Next
If Intersect(Target, Range("B13")) Is Nothing Then Feuil1.Name = Target
End Sub