Macro insertion de ligne dès qu'une ligne est supprimée

Bonsoir le forum

Encore une sollicitation de ma part pour toutes les bonnes volontés de ce forum qui n'amenage aucun effort pour nous aider.

En effet, j'ai cette macro qui permet dès que je saisis ok dans la colonne H, cela entraine la suppression de ligne ou le ok a été saisi. ce qui me conviens bien.

J'utilise une plage de donnée A5:H400.

Lorsqu'il y'a suppression d'une ligne, cela diminue la plage. Ce qui ne souhaite pas.

Donc je souhaite si possible que lorsqu'il y'a suppression de ligne, qu'il y'ait également insertion de ligne.

En resumé s'il y'a ok dans la colonne H, que cela entraine suppression et insertion de ligne.

L'insertion de la ligne se fera à partir de H399. Je suppose que lorsqu'il y'a suppression de ligne, la plage sera maintenant A5:H399.

Si l'insertion se réalise, ma plage de donnée redeviendra A5:H400.

Bonne compréhension

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range, Plage As Range
Set Plage = Intersect(Target, Columns(8))
If Plage Is Nothing Then Exit Sub
For Each Cel In Plage
    If Cel = "ok" Then Rows(Cel.Row).Delete
Next Cel
End Sub

Salut Zombe

Tu peux peut-être essayer

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Cel As Range, Plage As Range
  Set Plage = Intersect(Target, Columns(8))
  If Plage Is Nothing Then Exit Sub
  For Each Cel In Plage
    If Cel = "ok" Then
      Application.EnableEvents = False
      Rows(Cel.Row).Delete
      ' Insérer avant la dernière ligne pour garder la bonne zone nommée
      Rows(398).Insert Shift:=xlDown
      Application.EnableEvents = True
    End If
  Next Cel
End Sub

A+

Salut BrunoM45

C'est super ton code.

C'est ce que je voulais.

Infiniment merci à toi et vive le forum