Alors bonjour déjà,
Je n'ai pas vraiment fait attention à votre code, j'ai vu le step 2 donc ça m'a paru évident. Mais il faut que vous modifiiez :
fa.Range("A" & lgn + i / 2 - 6) = fbr.Range("H6")
'par
fa.Range("A" & lgn + i - 12) = fbr.Range("H6")
et faire de même pour toutes les lignes qui suivent.