Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Left(Target.Address, 4) = "$B$2" Then ' si la cellule est bien la bonne
If ActiveSheet.Index > Sheets.Count - 12 Then Exit Sub ' si les feuilles Sont es mois je sors
If Range("B2").Value = "" Then Target = ActiveSheet.Name: Exit Sub si rien n'a ete mis dans B2, j'y remets le nom de la feuille
ActiveSheet.Name = Range("B2").Value ' Mise à jour du nom de la feuille
End If
End Sub