insérer des lignes en mode dynamiques

Bonjour, une série de procédures résulte en un chiffrier de 764 lignes par 14 colonnes, dans lequel une procédure de validation a identifié quatre lignes qui nécessitent correction (131, 273, 402, 411) (colonne(“N:N”).value = “yesC”). La taille de ce fichier peut varier selon les paramètres de date que j’ai donné au tout début, Dans ce cas ci, le fichier représente le mois de mai 2020.

La correction consiste à ajouter deux lignes au-dessus de la ligne erronée, afin de répartir le contenu de celle-ci sur les deux autres puis éventuellement l’éliminer. J’ai écrit une autre procédure pour copier le contenu et assurer la bonne répartition des valeurs de la ligne fautive sur les deux nouvelles lignes.

Mon problème c’est justement la création de ces deux nouvelles lignes.

J’ai essayé les instructions suivantes mais le résultat est désastreux: les 130 premières lignes sont correctes mais le restant des données (lignes 131 à 764) est décalé à la ligne 765 et al.

Dim Dligne As Long
Dim lgn As Long

Dligne = Cells(Rows.Count, “A”).End(xlUp).Row
For lgn = 2 To Dligne
If Range(“N” & lgn).Value = “yesC” Then
Range(“A” & lgn & “:O” & lgn).Select
Selection.Insert Shift:=xlDown
End If
Next lgn
End Sub

Comment corriger ?.