Erreur 13!!

Bonjour,

Je suis dessus de puis le début de la journée, et après avoir toucher a un peu tout, je me rends!!

J'ai une erreur 13 (incompatibilité de type) sur le code suivant quand il est tourne avec une autre macro. Le code est:

Private Sub WorkSheet_Change(ByVal Target As Range)
Dim Cel As Range

y = Not LCase(Target.Value) = "oui" L'erreur viens de cette ligne!
Set isect = Application.Intersect(Range("modif"), Target)
If Not isect Is Nothing Then

For Each Cel In Range("M20:M350")
If Cel.Value <> "" And Cel.Value = 0 Then
Cel.EntireRow.Hidden = y
End If
Next

End If

End Sub

Elle me sert a rendre des lignes visibles ou non sous condition.

L'autre Macro est:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim VNom As String
VNom = ActiveSheet.Range("R15")
ActiveSheet.Name = VNom

If Target.Address = "$E$7" Then
For j = 1 To Range("E6")
Rows("35:45").Copy
Rows("46:46").Insert Shift:=xlDown
Next j
End If
Application.CutCopyMode = False

End Sub

Elle me sert a piloter l'insertion d'un tableau (de la ligne 35 a 45) un certain nombre de fois (E6)

Quelqu'un saurait quoi faire pour éviter cette erreur svp?