Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L4:Q4")) Is Nothing Then ' Intercepte une modification dans L4P4
Dim Feuille As Worksheet
Dim NomFeuille, NoFeuille
NomFeuille = Target.Value ' Récupère le nom qui vient d'être changé
NoFeuille = Left(NomFeuille, 1) ' Extrait le premier caractère, soit le numéro
For Each Feuille In Worksheets ' Pour chaque feuille
If Left(Feuille.Name, 1) = NoFeuille Then ' Regarde si le premier caractère est bien celui recherché
Worksheets(Feuille.Name).Name = NomFeuille ' Si oui, on change le nom de la feuille
Exit Sub ' Après ça, on sort.
End If
Next Feuille
End If
End Sub