Copier-coller plante Excel

Bonjour à tous,

Une macro qui m'a été faite par Nad-Dan pour masquer des colonnes empêche de faire des copier-coller avec le clic droit de la souris (par contre le copier-glisser marche).

(Impossible également de supprimer des lignes).

Quand j'efface la macro, le copier-coller remarche, quand je remets la macro, ça plante (j'ai fait l'essai plusieurs fois). Quand je dis ça plante, Excel mouline (gestionnaire de tâches = en cours d'éxécution) mais rien ne se passe et je ne peux plus rien faire;

quelqu'un comprend-il le phénomène ?

Merci de votre aide.

le fichier étant trop lourd, je vous recopie la macro.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim cel As Range, Lg As Byte
    Application.ScreenUpdating = False
    If Not Application.Intersect(Target, Range("a4")) Is Nothing Then
            Lg = Range("a4") + 9
        For Each cel In Range(Range("k" & Lg), Range("fe" & Lg))
            If cel = 0 Then
                cel.EntireColumn.Hidden = True
                Else: cel.EntireColumn.Hidden = False
            End If
        Next
    End If
End Sub

Bonjour,

Dans le code enlève -->

Application.ScreenUpdating = False 

ou mets avant le END SUB -->

Application.ScreenUpdating = True

Amicalement

Dan

Merci Nad-Dan

Plus de problème.