Renommer un sheet lorsqu'une cellule change de valeur

Bonjour le forum,

j'aimerais que le sheet change de nom en fonction de la valeur d'une cellule.

Ma macro de base fonctionne, mais je n'arrive pas à la faire fonctionner au changement de la valeur de ma cellule cible.

Voici le code (dans un module)

Option Explicit

Sub Worksheet_Change(ByVal Target As Range)

        If Application.Intersect(Target, Range("AC1")) Is Nothing Then Exit Sub

        Application.ScreenUpdating = False

        If Target = 8 Then End

       Range("A:A").Select
       Selection.EntireColumn.Hidden = False
       ActiveSheet.Select
       ActiveSheet.Name = Range("AC1").Text & (" (") & Range("A3").Text & (")")
       Range("A:A").Select
       Selection.EntireColumn.Hidden = True

       Application.ScreenUpdating = True
End Sub

Pourriez-vous m'aider svp.

Merci d'avance

Bonjour

Sur mon PC, ta macro fonctionne très bien :

Bye !

Je vois mon erreur, je dois la mettre dans la feuille, pas dans un module ni dans le worksheet...

Merci