Problème avec une macro pour caché des lignes

Bonjours à tous,

Voici la macro que j'ai faite, je voudrais quelle soit activé seulement quand je vient sur la feuille ou alors quand les cellule AH39 ou AH 92 sont modifié, et pas quand je modifies des autres cellule,

hors cette macro fonctionne presque parfaitement sauf que quand je mets 0 ou efface une autre cellule que celle ci dessus, la macro s'active (seulement en effacent ou en mettent 0 tous autre donnée ne l'active pas.)

Ce n'est pas très grave, mais je ne comprend pas pourquoi et je perds quelle que seconde chaque fois que la macro s'active.

Voici la Macro:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

On Error Resume Next
If Target = [AH39] Or [AH92] Then MaMacro

End Sub
Private Sub Worksheet_Activate()

MaMacro

End Sub

Sub MaMacro()

Application.ScreenUpdating = False
Rows("40:110").EntireRow.Hidden = False
If Range("AO39").Value = "P" Then Rows("40:83").EntireRow.Hidden = True
Application.ScreenUpdating = True
If Range("AI92").Value = "N" Then Rows("93:110").EntireRow.Hidden = True
Application.ScreenUpdating = True

End Sub 

Un grand merci au pro qui pourront m’aider à ce sujet.

Ambroise

Bonjour,

Essaie avec :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not Intersect(Target, [AH39,AH92]) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        MaMacro
    End If
End Sub

Super Jean-Eric

Merci beaucoup, c'est exactement ça.