Insertion une ligne selon critère

Bonjour tout le monde

Je me trouve confronté à un autre problème de novice , peut être ai je mal cherché ,mais après quelques heures de prise de tête ,je reviens sur le forum pour demander de l'aide.

Mon importation de données comptable ne supporte pas qu'un débit et un crédit soit quantifié sur la même ligne ,

C'est à dire si le débit égal X alors crédit égal zéro et vice versa.

or je reçois des fichiers qui ne font pas le dédoublage de ligne et contiennent des débits avec X et des crédits avec Y.

Quelqu'un aurait il la gentillesse de m'aiguiller sur une macro possible .

Je joins un fichier exemple de mon problème.

Merci d'avance.

Bonjour

Voir si cette macro fait ce que tu veux...

Sub debit_credit()
dlig = Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To dlig
    If (Cells(i, 6) = "" And Cells(i, 7) = "") Then GoTo suite
    If (Cells(i, 6) = "DEBIT" And Cells(i, 7) = "CREDIT") Then GoTo suite

    If (Cells(i, 6) > 0 And Cells(i, 7) = 0) Or (Cells(i, 6) = 0 And Cells(i, 7) <> 0) Then
    Else
        Rows(i).Copy
        Rows(i + 1).Select
        Selection.Insert Shift:=xlDown
        Cells(i, 6) = 0
        Cells(i + 1, 7) = 0
        dlig = dlig + 1
    End If
suite:
Next i
End Sub

A+

Merci Patty 5046 de te pencher sur mon cas

J'ai essayé le code il fonctionne sur une première partie du tableau , mais ne transforme pas l'intégralité des lignes , je suis obligé de passer la macro plusieurs fois d'affilé pour arrivé au résultat escompté.

Y a il un paramètre à changer dans le code pour obtenir une modification intégrale ?

Cordialement

Bonjour à tous

Un essai à tester.

Bye !

Salut gmb

J'ai essayé ton code il fonctionne bien rapide et efficace .

je te remercie beaucoup et vais enfin pouvoir clore mon import et boire une bière pour fêter çà !!

Merci et bonne fin de week end