Comportement étrange de la macro qui gère des sheets

Bonjour le forum,

je viens d'avoir une réaction étrange d'une macro.

J'ai une macro qui affiche un sheet (parmis une série de sheet de même couleur) en fonction d'une valeur dans une cellule (C2) de mon sheet principal.

j'ai ajouté une ligne entre 2 lignes existantes (33) fait du déplacement et du copier-coller mais sans jamais toucher à ma cellule C2.

Résultat, ma macro ne fonctionne plus.

J'ai changé la couleurs des sheets (sheets + macro) et ca fonctionne, j'ai remis ensuite la couleur de départ, et ca fonctionne encore.

Quelqu'un à déjà eu le soucis? comment cela se fait?

Merci

Bonjour,

Sans connaitre le contenu de la macro

Désolé, voici...

Option Explicit
' Affichage des collones suivant le site owner

Private Sub Worksheet_Change(ByVal Target As Range)

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

        Application.ScreenUpdating = False

        If Target = 8 Then End

        Dim Sh As Worksheet

        ' Boucle dans la collection des onglets
        For Each Sh In Worksheets

                ' On traite que les onglets dont la couleur est gris clair
                If Sh.Tab.Color = RGB(128, 128, 128) Then

                        ' Si le nom de l'onglet actuel correspond à la valeur sélectionnée en B4
                        If Sh.Name = Target Then
                                Sh.Visible = xlSheetVisible
                        Else
                                Sh.Visible = xlSheetHidden
                        End If

                End If

        Next Sh
End Sub

Re,

A part le commentaire qui n'est pas bon pour le Target, je ne vois pas de soucis particulier

J'ai testé en faisant du copier/coller, modification, déplacement de cellule
Et si je modifie la C2, ça fonctionne

Encore un coup de PEBCAK

A+

OK, merci pour le test, entre-temps j'ai encore eu le soucis qui c'est résolu de lui même.... Bug dans la matrice... Lol

Re,

Hum étrange... ne serait-ce pas encore lui la cause