d'un côté tu as le "grade" de "Nouveau" avec 1 seul post ; de l'autre côté, tu n'es plus nouveau puisque tu t'es inscrit le 22 mai... 2019 ! et en 2 ans 1 mois 6 jours ton post #1 est ton tout premier post ? faut pas être aussi timide, hein ? t'as l'droit d'poster des messages plus souvent ! 
j'espère quand même que si j't'apporte une solution valable, tu attendras pas de nouveau plus de 2 ans avant d'poster une réponse, lolllllll ! 
sur mon PC, ça donne ceci :Option Explicit
Sub Test()
If ActiveSheet.Name <> "Feuil1" Then Exit Sub
Dim n&: n = Cells(Rows.Count, 1).End(3).Row
If n = 1 And IsEmpty([A1]) Then Exit Sub
Dim v1#, v2#, i&, j&: i = n: Application.ScreenUpdating = 0
Do While i > 0
With Cells(i, 1)
If .Offset(, 10) = "X" Then
If .Offset(, 6) = 512 And Left$(.Offset(1, 6), 1) = "6" Then
v1 = .Offset(1, 4)
v2 = Round(v1 / 1.2, 2): If v2 > 0 Then .Offset(, 4) = v2
.Offset(1, 4).ClearContents: .Offset(1, 5) = v1
.Offset(, 5).ClearContents
.Offset(, 6) = .Offset(1, 6): .Offset(1, 6) = 512
End If
j = i + 1: Rows(j).Insert
Cells(i, 1).Resize(, 4).Copy Cells(j, 1): Cells(j, 7) = 445660
v2 = v1 - v2: If v2 > 0 Then Cells(j, 5) = v2
.Offset(, 10).ClearContents
End If
End With
i = i - 1
Loop
End Sub
Option Explicit
Sub Test()
If ActiveSheet.Name <> "Feuil1" Then Exit Sub
Dim n&: n = Cells(Rows.Count, 1).End(3).Row
If n = 1 And IsEmpty([A1]) Then Exit Sub
Dim v1#, v2#, i&, j&, b As Byte
i = n: Application.ScreenUpdating = 0
Do While i > 0
With Cells(i, 1)
If .Offset(, 10) = "X" Then
b = -(Left$(.Offset(, 6), 3) = 512 And Left$(.Offset(1, 6), 1) = "6")
v1 = .Offset(b, 4)
v2 = Round(v1 / 1.2, 2): If v2 > 0 Then .Offset(, 4) = v2
If b = 1 Then
.Offset(1, 4).ClearContents
.Offset(1, 5) = v1: .Offset(, 5).ClearContents
.Offset(, 6) = .Offset(1, 6): .Offset(1, 6) = 512
End If
j = i + 1: Rows(j).Insert
Cells(i, 1).Resize(, 4).Copy Cells(j, 1): Cells(j, 7) = 445660
v2 = v1 - v2: If v2 > 0 Then Cells(j, 5) = v2
.Offset(, 10).ClearContents
End If
End With
i = i - 1
Loop
End Subb = -(Left$(.Offset(, 6), 3) = 512 And Left$(.Offset(1, 6), 1) = "6")b = -(Left$(.Offset(, 6), 3) = "512" And Left$(.Offset(1, 6), 1) = "6")Left$() retourne une chaîne de caractères ➯ comparer avec le nombre 512 ne plante pas, mais à chaque tour de boucle, y'a une conversion implicite du texte retourné par Left$() en nombre pour vérifier si ce nombre est égal au nombre 512 situé à droite du signe égal « = » ➯ mettre 512 entre guillemets évite la conversion implicite : ça compare 2 textes "512" ; et ne perds pas de vue que c'est dans la boucle Do .. Loop ➯ y'avait une conversion implicite n× ; c'est subtil, hein ? c'est-à-dire tout ceci :Option Explicit
Sub Test()
If ActiveSheet.Name <> "Feuil1" Then Exit Sub
Dim n&: n = Cells(Rows.Count, 1).End(3).Row
If n = 1 And IsEmpty([A1]) Then Exit Sub
Dim c1$, c2$, v1#, v2#, i&, j&, k As Byte
i = n: Application.ScreenUpdating = 0
Do While i > 0
With Cells(i, 1)
If UCase$(.Offset(, 10)) = "X" Then 'on ignore toutes les lignes qui n'ont
'pas de "X" en colonne K ; le UCase$() te permet de cocher aussi avec "x".
If Not IsEmpty(.Value) Then 'sécurité, au cas où tu mettrais par inadvertance une
'coche "X" en colonne K pour une des lignes vides intercalaires ; exemple : même
'si tu mets un "X" en K20, la ligne 20 sera ignorée car A20 est vide.
c1 = .Offset(, 6) 'n° de compte de la ligne haut d'un groupe de 2 lignes
c2 = .Offset(1, 6) 'n° de compte de la ligne bas d'un groupe de 2 lignes
v2 = .Offset(, 4): If v2 = 0 Then v2 = .Offset(, 5) 'TTC (en colonne E ou F)
v1 = Round(v2 / 1.2, 2) 'HT = TTC / 1,2 (avec un arrondi à 2 décimales)
With .Offset(, 4)
.Resize(2, 2).ClearContents 'on efface tous les montants du groupe de 2 lignes
If Left$(c1, 3) = "512" Then .Offset(, 2) = c2: .Offset(1, 2) = c1 'inversion
'des n° compte si le compte Banque 512000 (ou 512) est sur la 1ère ligne haut
k = 5 - (Left$(.Offset(, 2), 1) = "7") 'n° colonne : 5 ou 6 => en E ou en F
End With
j = i + 1: Cells(i, k) = v1: Cells(j, 11 - k) = v2: Rows(j).Insert
.Resize(, 4).Copy Cells(j, 1): Cells(j, 7) = "445" & IIf(k = 5, "660", "710")
Cells(j, k) = v2 - v1: .Offset(, 10).ClearContents
End If
End If
End With
i = i - 1
Loop
End Sub
