Problème avec évènement "Change"

Bonjour à tous

j'ai un petit souci avec ma feuille excel et ma macro VBA.

J'ai affecté à ma feuille un événement type Private Sub Worksheet_Change :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then Cells(Target.Row, 2).Clear
End Sub

Ainsi lorsqu'une cellule de la colonne 1 est modifiée, le contenu de la cellule adjacente en colonne B est supprimé.

Le problème, c'est que j'ai dans ma feuille un bouton de commande lié à une macro, qui supprime la ligne sélectionnée (avec une commande type Row(X).Delete)

Et du coup, problème avec l'évènement Change lorsque je clique sur ce bouton... Il plante, car il ne trouve plus la cellule à supprimer (je pense)

Quelqu'un aurait-il une idée pour éviter cela? D'avance merci pour vos réponses

Bonjour,

Dans un module tu mets en haut

Public Flag As Boolean

et dans le Private

Private Sub Worksheet_Change(ByVal Target As Range)
If Flag Then Exit Sub
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        Flag = True
        Cells(Target.Row, 2).Clear
        Flag = False
    End If
End Sub

Amicalement

Claude

Tres bonne astuce, cela fonctionne parfaitement.

Merci beaucoup pour ton aide

Cordialement