Interruption d'une macro

Bonjour à tous.

Je débute totalement dans Excel et j'aurais aimé un peu d'aide.

Je souhaite réaliser une macro lorsque une cellule donnée à pour valeur 0.

J'ai donc réaliser ce code :

Private Sub Worksheet_Change (ByVal Target As Range)
If Range ("O1") = "0" Then
Macro1
End If
End Sub

Et la macro :

Range ("A17:B17").Select
Selection.Copy
Range("M1").Select
Selection.PasteSpecial Paste:=x1PasteValues, Operation:=x1None, _
          SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Insert Shift:=x1Down
End Sub

Cependant, ces formules insèrent plusieurs lignes au lieu d'une seule et je me retrouve avec un tableau qui a deux cases vides entre chaque valeur.

J'espère m'être bien fait comprendre.

Bonjour

Je n'ai pas trop cherché à savoir ce que tu voulais faire

Mais pour pallier ton problème modifies ta macro

Private Sub Worksheet_Change(ByVal Target As Range)
  If Range("O1") = "0" Then
    Application.EnableEvents = False
    macro1
    Application.EnableEvents = True
  End If
End Sub

Si pas ça

Super,

Merci.