Ajouter des lignes selon conditions

Bonjour a tous et a tous le fil

Je vous sollicite cette fois pour avoir de l'aide sur une conditions que j'essaye d'initialisé mais je n'y arrive pas

En fait je cherche a créer une conditions que " SI un paiement a été versé en espèces le numéro "51101000"

alors rajoute deux lignes avec presque les même paramètres que la premières " je vous joint un fichier d'exemples ci dessous

avec des explications a l'intérieur en jaune . :) et voici mon code de débutant

Sub Insertion()
Dim i&
Application.ScreenUpdating = False
For i = Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1
  If Cells(i, 2) = "51101000" Then
    Rows(i + 1).Insert
    Cells(i + 1, 1) = Cells(i, 0)
    Cells(i + 1, 2) = "CS"
    Cells(i + 1, 3) = "5110100"
    Cells(i + 1, 4) = ""
    Cells(i + 1, 5) = Cells(i, 3)
    Cells(i + 1, 6) = "caisse kari"
    Rows(i + 1).Insert
    Cells(i + 1, 1) = Cells(i, 0)
    Cells(i + 1, 2) = "CS"
    Cells(i + 1, 3) = "531000"
    Cells(i + 1, 4) = Cells(i, 3)
    Cells(i + 1, 5) = ""
    Cells(i + 1, 6) = "caisse kari"
  End If
Next
End Sub

si quelqu'un pourrait m'aider ?

cordialement

Ex: Tableau de base

Voici le résultat voulu

Bonjour,

tu t'es trompé sur des numéros de colonne, voici une version corrigée de ton code:

Sub Insertion()
Dim i&
Application.ScreenUpdating = False
For i = Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1
  If Cells(i, 3) = "51101000" Then 'tu regardais le code du journal en deuxième colonne
    Rows(i + 1).Insert
    Cells(i + 1, 1) = Cells(i, 1) 'colonne 0 = erreur, c'était la première colonne
    Cells(i + 1, 2) = "CS"
    Cells(i + 1, 3) = "5110100"
    Cells(i + 1, 4) = ""
    Cells(i + 1, 5) = Cells(i, 4) 'tu avais mis la troisième colonne, donc le numéro de compte
    Cells(i + 1, 6) = "CAISSE KARI"
    Rows(i + 1).Insert
    Cells(i + 1, 1) = Cells(i, 1) 'colonne 0 = erreur, c'était la première colonne
    Cells(i + 1, 2) = "CS"
    Cells(i + 1, 3) = "531000"
    Cells(i + 1, 4) = Cells(i, 4) 'tu avais mis la troisième colonne, donc le numéro de compte
    Cells(i + 1, 5) = ""
    Cells(i + 1, 6) = "CAISSE KARI"
  End If
Next
End Sub

Ah d'accord merci beaucoup pour votre solution ca fonctionne a merveille :) :) :)