Executer une macro seulement 1 fois

Bonjour,

Je cherche depuis 2 jours comment arreter ma macro apres execution mais je ne trouve pas.
mon code est simple

Private Sub Worksheet_Change(ByVal Target As Range)
 If Range("J30") > 0 Then

Rows("34:37").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End If

End Sub

Il s'agit ici d'insérer 4 lignes en dessous de J30 quand cette cellule est supérieur à 0

Dans mon code cette fonction se répète sens cesse finissant par faire planter Excel.

Comment l'executer une seule fois SVP?

Merci d'avance.

Bonjour et bienvenue sur le forum

Essaie comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
     If Range("J30") > 0 Then

     ' mon code

    End If
    Application.EnableEvents = True
End Sub

Bye !

Bonsoir,

Merci infiniment pour ton aide, ça fonctionne à merveille.

je vais pouvoir continuer